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1.  INTRODUCTION 


Program  ADM  which  is  described  in  this  volume  and  Program  LIBLIST  which  is 
described  in  volume  II  of  this  report  were  designed  and  developed  to  automate  the 
cataloging  operation  of  the  document  center  of  the  Directorate  of  Aerospace 
Studies  (DAS),  Kirtland  AFB,  NM.  These  programs  satisfy  the  specific  needs  of 
that  center.  Additionally,  the  software  is  designed  around  the  Control  Data  Corpora- 
tion (CDC)  6600  computers  of  the  Air  Force  Weapons  Laboratory  at  Kirtland  AFB.  Never- 
theless it  is  believed  that  many  groups  requiring  cataloging  services  can  easily  adapt 
these  programs  to  their  needs.  This  two-volume  set  should  provide  all  the  informa- 
tion necessary  to  determine  the  suitability  of  applying  ADM  and  LIBLIST  to  partic- 
ular situations.  The  discussion  of  the  programs  is  believed  to  be  detailed  enough 
to  allow  conversion  of  the  FORTRAN  software  to  different  computers  and/or  other 
programming  languages. 

The  DAS  document  center  maintains  a collection  of  between  5000  and  10,000 
holdings.  The  majority  of  these  holdings  are  unclassified  and  classified  tech- 
nical documents.  While  the  size  of  the  collection  is  reasonably  static,  the 
composition  is  in  a constant  state  of  flux.  New  documents  are  acquired  and  old 
documents  having  a limited  life  or  of  limited  interest  are  purged.  Until  ADM  and 
LIBLIST  were  written  these  documents  were  cataloged  on  cards  by  title,  corporate 
author,  report  number,  accession  number,  and  key  words.  The  decision  to  automate 
was  based  on  a single  consideration  - to  increase  the  accessibility  of  informa- 
tion about  the  collection.  The  programs  do  this  through:  (1)  increasing  the 

number  of  types  of  catalogs  maintained,  (2)  standardizing  the  format  of  the 
catalogs,  (3)  enhancing  the  physical  ease  of  using  the  catalog  (computer  listings 
can  be  scanned  more  readily  than  individual  catalog  cards),  (4)  providing  flex- 
ibility by  allowing  variations  in  catalog  content  (including  the  production  of 
special  purpose  catalogs  on  a onetime  basis),  and  (5)  allowing  easy  dissemination 
of  the  catalogs  through  the  production  of  multiple  copies. 

Program  ADM  performs  the  functions  of  initially  creating  and  then  maintain- 
ing a data  base  of  information  describing  the  documents.  Input  to  the  program  is 
by  punch  card.  Output  consists  of  printed  material  used  as  an  aid  to  detecting 
errors  in  the  input,  and/or  a new  or  updated  data  base  stored  on  magnetic  tape  or 
disk.  Program  LIBLIST  distills  data  from  the  data  base  into  catalog  listings 
whose  content  is  specified  by  the  user. 


Maintaining  a data  base  is  basically  the  process  of  changing  it  so  that  it 
continues  to  contain  an  accurate  description  of  the  collection  holdings.  This 
means  that  it  must  be  possible  to  add  information  to  the  data  base,  delete  informa- 
tion, or  modify  existing  information.  The  program  takes  its  name  from  these  three 
functions:  A(dd)  D(elete)  M(odify). 

Each  holding  may  be  described  by  up  to  20  categories  of  information.  These 
categories  are  the  same  for  all  holdings  described  by  the  data  base.  The  list  of 
categories  as  currently  used  at  DAS  is  given  in  table  1.  These  selections  are  in 
no  way  indigenous  to  the  program  coding  except  that  each  category  is  identified  on 
the  input  cards  by  a unique  two-character  code.  As  the  program  now  stands  these 
codes  are  sugge''  ' of  the  categories  of  table  1 that  they  represent.  They  could 
easily  be  che  suggest  different  categories.^  This  and  the  more  important 

fact  that,  Aception,  all  categories  of  data  are  treated  identically  in 

the  comput  , uxes  the  content  of  the  data  base  very  flexible.  This  in  turn  allows 
ADM  to  maintain  a data  base  for  any  set  of  entities  which  can  be  described  by  at 
most  20  categories  of  information. 

The  equal  treatment  of  categories  of  information  in  the  data  base  is  used  by 
LIBLIST  to  allow  the  creation  of  catalogs  whose  entries  are  arbitrary  in  content. 

For  example  (using  the  categories  of  table  1)  LIBLIST  can  produce  a catalog  by 
title,  followed  in  order  by  corporate  author,  document  date,  classification,  AD 
number,  and  accession  number.  Just  as  easily  it  could  produce  a catalog  by  title, 
followed  by  requestor,  date  received,  AD  number,  and  accession  number.  This  flexi- 
bility is  a useful  feature  of  this  cataloging  system. 

Another  convenient  feature  of  the  ADM  program  is  the  input  scheme.  It  was 
designed  to  make  the  initial  punching  of  cards  and  any  subsequent  correction  of 
errors  as  easy  as  possible.  Information  to  be  punched  need  not  be  entered  on 
coding  forms  which  specify  card  columns.  Depending  upon  the  skills  of  the  key- 
punch operator,  punching  may  be  done  from  typed  forms,  handwritten  forms,  or  the 


1.  Having  the  codes  suggest  the  category  of  information  is  merely  a convenience 
to  the  program  user. 
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18.  Key  Words  (KW)  Words,  mnemonics,  or  expressions  characterizing  the  document. 

19.  Abstract  (AB)  This  category  is  not  currently  used. 

20.  Not  used 


documents  themselves.  In  large  part  this  is  the  result  of  there  being  no  require- 
ment as  to  the  order  in  which  information  is  entered  upon  the  cards,  nor  any 

2 

practical  restriction  on  the  length  of  the  information  associated  with  a partic- 
ular category. 

Section  2 discusses  the  structure  of  the  data  base  in  depth.  This  is  followed 
by  a discussion  in  section  3 of  the  concept  of  alphanumeric  ordering  used  in  ADM 
(and  LIBLIST)  and  its  implications  to  program  users.  Input  and  output  are  treated 
in  sections  4 and  5,  respecti vely.  Section  6 discusses  input  errors  and  the  best 
methods  for  correcting  them.  The  maintenance  of  the  data  base  is  the  subject  of 
section  7,  while  the  final  section  contains  descriptions  of  the  functions  of  the 
main  program  and  the  three  subroutines.  The  report  concludes  with  two  appendices. 
Appendix  A contains  an  alphabetical  list  and  description  of  all  important  program 
variables.  This  is  followed  by  a well -commented  listing  of  the  FORTRAN  program 
in  appendix  B. 


2.  There  is  a restriction  of  about  500  characters  on  the  total  of  the  lengths  of 
all  the  individual  categories.  This  could  easily  be  increased  by  a factor  of  four 
or  even  six  on  the  CDC  6600  used  at  Kirtland  AFB, 
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2.  THE  DATA  BASE 


A data  base  is  the  total  of  all  information  about  a set  of  documents  that  is 
maintained  on  a mass  storage  file.^  Within  a data  base  each  document  is  represented 
by  a data  set.  This  in  turn  is  composed  of  data  items  and  a table  indicating  where 
the  data  items  are  stored  within  the  data  set,  and  the  lengths  of  the  items  in 
number  of  computer  words. 

2.1  DATA  ITEMS 

A list  of  the  data  items  was  given  in  table  1.  Data  items  represent  categories 
of  information,  e.g.,  title,  personal  author,  key  words.  For  a giv>''i  document  some 
of  these  categories  may  not  be  represented.  There  may  be  no  personal  author,  for 
example.  Some  categories  may  require  multiple  entries  which  need  to  be  treated 
independently  when  forming  a catalog  listing.  An  obvious  example  is  key  words.  And 
whereas  the  title  for  one  document  may  occupy  a single  computer  word,  that  for  another 
document  may  require  15  computer  words. 

To  handle  these  variations  the  data  item  was  conceived  as  having  a substructure 
and  an  indefinite  length.  The  substructure  allows  multiple  entries  in  a given  data 
item  to  be  given  independent  status  by  linking  them  with  plus  (+)  signs. ^ (This 
feature  eliminates  the  plus  sign  from  the  otherwise  usable  character  set.)  A data 
item  has  zero  length  if  there  is  no  information  about  a document  in  that  category. 

The  upper  limit  for  its  length  is  determined  only  by  the  restriction  that  the  sum 
of  the  lengths  of  all  data  items  in  a data  set  should  not  exceed  54  computer  words. 

Data  items  in  the  data  base  are  stored  in  display  code.  The  CDC  printer  charac- 
ters and  display  codes  are  given  in  table  2.  All  but  three  may  be  used  in  data  items 
as  themselves.  The  exceptions  are  the  colon  (:),  the  plus  sign  (+),  and  the  blank. 

The  colon  has  a display  code  of  00.  This  means  that  in  the  alphanumeric  ordering 


3.  This  data  base  may  be  called  an  electronic  data  base  to  distinguish  it  from  the 
collection  of  data  cards  from  which  it  was  derived  - the  card  data  base.  Throughout 
this  report  data  items  and  data  sets  not  yet  part  of  the  data  base  are  referred  to  as 
input  data  items  or  input  data  sets  to  distinguish  them  from  those  in  the  data  base. 

4.  Because  the  purpose  of  the  accession  number  (or  AD  number  if  an  accession  number 
is  not  used)  is  to  provide  the  data  set  with  a unique  identification,  multiple  entries 
in  these  data  items  make  no  sense. 
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THE  PRINTER  CHARACTER  SET  AND  DISPLAY  CODES 
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The  display  code  is  the  octal 
representation  in  the  machine. 


process  (see  section  3)  it  plays  the  role  of  a blank  (leaving  no  role  for  the  blank). 
The  plus  sign  has  the  special  function  just  discussed.  The  remaining  61  characters 
are  available  to  be  used  in  any  manner  in  a data  item  with  two  exceptions.  First 
two  consecutive  coions  (blank  substitutes)  may  not  appear  imbedded  in  the  information 
of  a data  item,  since  two  consecutive  colons  indicate  the  end  of  a data  item  during 
certain  processes  within  the  computer.  (In  the  data  base  two  consecutive  colons  must 
appear  at  the  end  of  every  data  item,  even  if  an  extra  computer  word  must  be  added 
to  provide  one  or  both  of  them.)  Second,  all  punctuation  characters  are  automatical! 
spaced  at  the  time  ADM  creates  the  data  base.  Thus,  for  example,  comnas  are  always 
followed  by  a colon  (blank  substitute),  but  never  preceded  by  one.  This  information 
is  given  in  table  3. 


Table  3 

PROGRAMMED  PUNCTUATION  SPACING 

No  blank  precedes 

+ -*/  = )]..  ; $ % 

No  blank  follows 

([+-*/= 

A blank  precedes 

( c 

A blank  follows 

)]..;$  ^. 

Should  two  characters  with  conflicting  rules  be  adjacent  to  one  another,  that  apply- 
ing to  the  second  character  will  prevail,  e.g.,  ) and  - is  spaced  )-. 

Each  data  item  occupies  an  integral  number  of  computer  words.  Thus,  for  example 
when  Rand  Corporation  is  used  as  a corporate  author  it  would  be  stored  in  the  com- 
puter in  octal  notation  as  the  two  computer  words® 

2201 1 60400031 722201 7 1 2201241 1 171600000000 


5.  The  automatic  spacing  of  these  characters  places  the  burden  of  punctuation  spacir 
on  the  computer  rather  than  on  those  preparing  input  for  ADM.  This  is  an  important 
asset  in  achieving  the  correct  order  of  entries  in  listings  produced  by  LIBLIST.  See 
section  3. 

6.  There  are  10  six  bit  characters  in  a 60  bit  computer  word. 
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which  when  converted  to  characters  is 


RAND;C0RP0| RATION: ; : : 

Notice  that  this  data  item  is  terminated  by  at  least  two  consecutive  "blanks,"  i.e., 
colons.  Were  the  corporate  author  Bigdome  Corporation,  it  would  appear  in  character 
representation  as 

BIGDOME :C0 | RPORATION : | : 

where  tne  extra  word  of  "blanks"  has  been  added  to  provide  the  second  "blank"  of  the 
pair  required  to  indicate  the  end  of  the  data  item. 

2.2  DATA  SET 

To  form  a data  set,  the  data  items  are  assembled  in  consecutive  locations  in 
the  data  base  in  the  order  given  in  table  1. 

Some  method  must  be  used  for  specifying  the  locations  of  each  of  the  data 
items.  An  easy  way  is  to  include  at  the  beginning  of  the  data  set  a table  giving 
the  location  of  the  first  word  of  each  data  item  (numbering  the  first  word  of  the 
data  set  1)  and  the  number  of  words  comprising  it.  This  has  been  done  by  packing 
this  information  for  the  20  data  items  into  five  computer  words,  four  data  items 
to  a word.  Since  a CDC  6600  word  has  60  bits,  this  means  that  the  length  and 
location  information  for  a data  item  must  be  presented  in  15  bits.  The  first  six 
are  used  to  give  the  length;  the  last  nine  the  location.  This  is  shown  in  figure  1. 


The  correspondence  between  data  item,  the  computer  words  in  the  table,  and  bit 
numbers  is  given  in  table  4.  The  maximum  expressable  length  of  a data  item  is 
77  octal  (63  decimal)  computer  words.  The  maximum  location  is  777  octal  (511 
decimal)  words. 

The  data  set  is  completed  by  preceding  the  length-location  table  with  a 
single  computer  word  giving  the  total  length  of  the  data  set.  The  final  data 
set  thus  has  the  form  shown  in  figure  2. 

Length  Length-Location  Data  Items  (Maximum  54  Words) 

of  Table  (5  Words) 

Data 

Set 

(1  Word) 

I ^ \ ^ 


— 1 — 

— 1 — 

— 1 — 

— 1 — 

— 1 — 

— 1 — 

— 1 — 

— 1 — 

— 1 — 

— 1 — 

— 1 — 

— 1 — 

— 1 

— 1 — 

— 1 — 

— f — 

— 1 — 

— i — 

— » — 

— i — 

— i — 

— 1 — 

— 1 — 

— 1 — 

— 1 — 

— i 

I 1 1 1 1 1 

Figure  2.  Format  of  a Data  Set 

2.3  DATA  BASE 

The  data  base  is  composed  of  the  collection  of  all  data  sets.  It  is 
advantageous  to  have  these  data  sets  ordered  in  some  manner  in  the  data  base. 

This  is  brought  about  by  the  need  to  be  able  to  delete  or  modify  data  base  data 
sets  efficiently  with  Program  ADM.  Suppose,  for  example,  that  100  data  sets  are 
to  be  deleted  from  a data  base  of  1000  data  sets  because  the  corresponding  docu- 
ments are  no  longer  part  of  the  collection.  If  there  is  no  order  to  the  data 
sets  in  the  data  base,  the  list  of  data  sets  to  be  removed  will  have  to  be 
searched  over  and  over  again  as  the  data  sets  in  the  data  base  are  examined  one 
by  one  looking  for  matches.  If,  however,  both  lists  are  in  order,  each  list  will 
need  to  be  searched  only  once  to  identify  the  100  data  sets  to  be  removed. 

The  ability  to  order  the  data  sets  depends  upon  each  data  set  having  a unique 
identifier.  For  microfiche  with  AD  numbers,  this  identifier  is  the  AD  number. 


Table  4 

THE  STRUCTURE  OF  THE  LENGTH-LOCATION  TABLE 
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For  all  other  documents  it  is  the  accession  number  assigned  to  it  at  the  Directorate 
of  Aerospace  Studies. 


3.  ALPHANUMERIC  ORDERING 
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Ordinary  alphabetical  ordering  is  accomplished  by  comparing  two  words  (or 
word  groups)  beginning  with  the  left-most  characters  of  each  and  preceding  char- 
acter by  character  to  the  right  until  a difference  is  found.  The  two  corres- 
ponding but  different  characters  then  determine  which  word  or  word  group  comes 
first  by  which  is  "alphabetically  smaller"  according  to  the  sequence  blank,  A,  B, 
...  Z.  Punctuation  is  generally  ignored  in  determining  alphabetical  order. 

The  ordinary  extension  of  alphabetic  ordering  to  include  numbers  - alpha- 
numeric ordering  - is  not  consistent  with  this  process.  Instead  of  beginning 
with  the  left-most  digits  of  the  two  strings  of  digits  being  compared  and  pro- 
ceeding character  by  character  until  a difference  is  found,  the  numbers  are 
compared  as  entities.  Thus  nine  precedes  10,  a situation  which  everyone  expects. 
This  is,  of  course,  a convention,  and  one  that  does  not  lend  itself  as  efficiently 
to  alphanumerically  computer  ordering  as  another  which  will  be  described. 

For  efficiency  in  computer  ordering  it  is  desirable  to  allow  the  ordering  to 
proceed  in  the  nonconventional  way  of  comparing  numbers  exactly  as  letters  are 
compared  - character  by  character  from  the  left.  Using  this  scheme,  very  non- 
conventional ordering  takes  place,  e.g.,  10  precedes  9;  1000  precedes  11,  etc. 

This  too  is  a convention,  but  not  one  everyone  will  readily  adapt  to.  A partial 
solution  is  to  preface  numbers  with  zero.  Thus  09  will  indeed  precede  10.^  This 
works  as  long  as  the  two  numbers  being  coiipared  have  the  same  number  of  digits. 

O 

In  most  cases  this  is  a practical  way  to  obtain  the  traditional  ordering. 

There  is  one  further  difference  between  traditional  alphanumeric  ordering  and 
the  computer  ordering  appearing  in  ADM.  Punctuation  marks  are  considered  as  char- 
acters just  as  are  the  blank,  letters,  and  the  digits  0-9.  The  alphanumeric  order 


7.  Roman  numerals  provide  another  problem  in  computer  ordering.  For  example  C(IOO) 
will  order  before  I (1),  IX  (9)  before  V (5),  etc.  It  will  generally  pay  to  replace 
Roman  numerals  with  Arabic  numbers. 

8.  As  currently  used,  for  example,  all  accession  numbers  are  entered  as  five  digit 
numbers,  the  necessary  leading  zeros  appearing  as  necessary. 
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of  all  the  characters  is  that  given  previously  in  table  2.  The  order  corresponds 
to  th  ; numerical  order  of  the  display  codes.  This  consideration  of  punctuation 
in  the  ordering  process  makes  consistency  of  punctuation  essential  if  listings 

9 

are  to  have  the  desired  order  at  all  times.  Below  are  some  pairs  of  expressions 
ordered  traditionally  and  as  the  ADM/LIBLIST  programs  order  them. 


TRADITIONAL 

ADM/LIBLIST 

1. 

BASE 

BASE 

BASES 

BASES 

2. 

ALPHA9  ALPHA09 

ALPHAIO  ALPHA09 

or 

or  • 

ALPHA! 0 ALPHAIO 

ALPHA9  ALPHAIO 

3. 

1812 

18027 

18027 

1812 

4. 

01812 

01812 

18027 

18027 

5. 

STATISTICS,  VOL.  1 

STATISTICS,  VOL  2 

STATISTICS,  VOL  2 

STATISTICS,  VOL.  1 

These  ordering  characteristics  should  be  understood  and  planned  for  before 
the  first  input  data  set  is  ever  keypunched. 


9.  Consideration  is  being  given  to  changing  the  program  logic  to  treat  strings 
of  digits  as  entities  and  to  ignore  punctuation  in  the  ordering  process. 
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4.  INPUT 


The  first  card  of  every  data  deck  for  Program  ADM  defines  the  three 
quantities  OLDFILE,  NEWFILE,  and  IPRINT.  The  card  is  read  under  a 315  format, 
and  each  of  the  quantities  can  take  the  values  zero  or  unity  with  the  following 
impl i cations : 


OLDFILE 


NEWFILE 


IPRINT 


0 An  old  data  base  file  is  not  to  be  input  to  the  program. 

1 An  old  data  base  file  is  to  be  input  to  the  program  to  be 
integrated  with  input  data  sets  to  create  a new  data  base 
file. 

0 A new  data  base  file  is  not  to  be  created  by  the  run.  The 
run  serves  only  to  provide  a check  of  the  format  and  content 
of  the  input  data  sets. 

1 A new  data  base  file  is  to  be  created  by  the  run. 

0 Do  not  list  input  data  sets  using  an  expanded  format  (see 
section  5) . 

1 List  input  data  sets  in  expanded  format. 


A new  data  base  file  may  be  created  entirely  from  input  data  sets,  or  the 
input  data  sets  may  be  combined  with  an  existing  data  base  file  to  produce  a new 
data  base  file.  In  the  first  case  OLDFILE  = 0,  NEWFILE  = 1;  in  the  second  OLDFILE 
= 1,  NEWFILE  = 1.  The  combination  OLDFILE  = 1,  NEWFILE  * 0 makes  no  sense  in  terms 
of  useful  program  operation. 


Following  this  initial  card  are  the  input  data  sets.  An  input  data  set  con- 
sists of  one  or  more  cards  which  specify  the  document  to  be  processed,  how  it  is 
to  affect  the  data  base,  and  the  data  items  that  are  to  be  treated.  This  information 
is  contained  in  columns  1-72  of  successive  cards.  Columns  73-80  are  used  for  visual 
identification  of  the  cards  only  and  may  contain  any  information  desired  (e.g.,  the 
document  identification  number). 


The  beginning  of  a data  set  is  indicated  by  the  first  three  columns  of  the 
first  card  containing  *A*,  *D*,  or  *M*.  The  *A*  indicates  that  the  data  set  will 
be  added  to  the  data  base.  The  *0*  indicates  that  the  document  identified  in  the 
input  data  set  is  to  be  deleted  from  an  already  existing  data  base,  while  *M*  tells 
the  program  that  the  input  data  set  is  to  modify  the  specified  data  set  from  an 
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existing  data  base.  The  end  of  a data  set  is  signaled  by  two  successive  blank 
columns  appearing  anywhere  in  columns  1-72  of  a card,  or  appearing  in  column  72 
of  one  card  and  column  1 of  the  succeeding  card.  (Within  a data  set,  the  program 
regards  column  1 of  one  card  as  being  adjacent  to  column  72  of  the  previous  card.) 
Nothing  should  be  punched  after  the  second  blank  on  the  last  data  card  of  a set 
except  in  columns  73-80.  The  program  would  regard  additional  information  before 
column  73  as  an  error,  as  two  successive  blanks  followed  by  more  information  might 
represent  an  error  in  punching  the  cards.  In  those  cases  that  the  actual  data 
associated  with  the  input  data  set  ends  in  columns  71  or  72  of  a card,  an  additional 
card  with  blanks  in  columns  1-72  must  be  added  to  provide  the  required  blank(s) 
signifying  the  end  of  the  input  data  set. 

The  two-character  input  data  identifiers  (see  table  1)  appear  within  an  input 
data  set  between  a pair  of  asterisks  (*),  for  example  *TI*.  They  are  followed 
directly  by  the  data  they  identify.  Thus,  an  individual  identifier  and  its  data 
might  appear  as 

*TI*ALICE  IN  WONDERLAND 

If  multiple  (up  to  ten)  entries  are  associated  with  an  identifier  they  should  be 
joined  by  plus  ( + ) signs,  e.g.  , 

*TI*ALICE  IN  WONDERLAND  + THROUGH  THE  LOOKING  GLASS 

This  will  cause  Program  LIBLIST,  when  printing  a title  listing,  to  enter  this  docu- 
ment in  the  listing  under  both  ALICE  IN  WONDERLAND  and  THROUGH  THE  LOOKING  GLASS. 

An  input  data  set  is  composed  of  one  or  more  of  these  units  following  the  initial 
three  characters  *A*,  *D*,  or  *M*.  The  example  below,  figure  3,  illustrates  a 
typical  input  data  set.  The  circled  letters  with  their  accompanying  arrows  serve 
to  point  out  particular  items  for  discussion.  It  is  important  to  note  that  the 
order  of  the  input  data  items  within  the  input  data  set  is  immaterial. 

This  asterisk  does  double  duty,  acting  as  the  third  character  of  and 
at  the  same  time  serving  as  the  first  asterisk  of  the  pair  indicating  the  identifier 
AN. 

@ The  program  recognizes  the  end  of  one  input  data  item  by  encountering  the 
next  identifier  (or  two  successive  blank  columns).  Note  that  no  blank  column 
appears  here. 

© Note  as  indicated  before  that  column  72  of  one  card  is  considered  by  the 
program  to  be  adjacent  to  column  one  of  the  next. 
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® The  second  appearance  of  an  identifier  and  input  data  item  causes  the 
initially  defined  information  to  be  replaced  by  the  newly  defined  data.  This 
feature  allows  an  error  in  the  first  appearance  of  a data  item  to  be  corrected 
without  necessitating  repunching  the  cards  including  and  following  the  error  (as 
would  be  required  by  a correction  resulting  in  a change  of  length  of  the  input  data 
item  as  is  the  case  here).  The  same  identifier  could  appear  within  a data  set  more 
than  twice.  In  such  a case  the  data  associated  with  the  last  appearance  is  always 
used. 

(D  Every  input  data  set  has  a unique  identifier  which  is  the  accession  number 
or  the  AD  number  when  there  is  no  accession  number. 

(?)  Spacing  relative  to  all  punctuation  characters  need  not  be  a concern  in 
an  input  data  set.  This  spacing  is  standardized  by  Program  ADM.  These  are  also 
examples  of  multiple  entries  within  an  input  data  item. 

(g)  The  two  blank  columns  terminating  the  input  data  set. 

Columns  73-80  contain  the  accession  number  of  the  document  described  by 
the  input  data  set.  Should  a deck  containing  these  cards  be  dropped,  for  example, 
this  allows  the  input  data  set  to  be  easily  reconstructed. 

A maximum  acceptable  length  for  an  input  data  set  exists,  but  it  is  not  easily 
defined.  Fifty-four  computer  words  (540  characters)  are  allocated  in  the  computer 
for  the  input  data  items  of  an  input  data  set.  However,  some  of  the  540  characters 
are  automatically  blank  filled  (and  hence  lost  for  data  storage)  in  the  process  of 
storing  the  input  data  items.  Roughly  then  about  500  data  characters  can  be  stored 
per  input  data  set  - about  the  amount  of  information  associated  with  seven  or  eight 
input  cards. 

This  limitation  on  the  amount  of  information  which  can  be  stored  about  a partic- 
ular document  is  the  only  limitation  on  the  length  of  any  particular  input  data  item. 


10.  An  expansion  of  this  available  storage  is  not  difficult  but  it  naturally  in- 
creases the  size  of  Program  ADM  and,  even  more,  its  companion  Program  LIBLIST.  Super- 
ceded  input  data  items  associated  with  repeated  two-character  identifiers  do  not 
count  in  the  approximate  seven-eight  card  limit. 
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That  is,  as  long  as  all  the  input  data  items  can  be  stored  in  the  allocated  54 
words,  the  lengths  of  the  individual  input  data  items  are  immaterial 

When  an  input  data  set  is  being  used  to  delete  a document  from  an  existing 
data  base,  it  needs  only  to  have  *D*  followed  by  the  unique  document  identifier 
as 

*D*AN*35802 

or 

*D*AD*947692 

When  the  modification  of  data  items  of  a document  of  an  existing  data  base 
is  specified,  the  input  data  items  present  are  only  those  being  changed  plus 
either  the  accession  number,  or  if  one  does  not  exist,  the  AD  number.  In  the 
modification  of  a data  set,  the  input  data  items  replace  the  existing  data  items 
if  they  exist.  If  no  data  item  exists  in  the  data  set  corresponding  to  the  one 
being  added,  the  input  data  item  is  simply  added  to  the  data  set.  It  is  impos- 
sible to  modify  the  accession  number  (or  AD  number  if  an  accession  number  does 
not  exist)  by  this  method.  These  types  of  modification  are  done  by  deleting  the 
data  sat  from  the  data  base  and  reintroducing  it  with  a different  accession  or 
AD  number.  To  delete  an  existing  data  item  from  the  data  set,  the  two-character 
identifier  should  be  followed  by  a single  minus  sign  (-).  For  example  to  delete 
the  corporate  author  use  *CA*-. 

Of  the  64  printer  characters,  three  are  subject  to  restrictions  when  used  in 
input  data  items.  The  plus  sign  (+)  is  restricted  to  linking  together  multiple 
data  items,  the  colon  if  used  will  be  stored  as  a blank  in  the  data  base,  and  the 
asterisk  must  appear  as  a double  asterisk  (**)  each  time  it  is  to  appear  in  a 
data  item.  The  doubling  of  the  asterisk  prevents  the  program  from  interpreting 
either  of  the  asterisks  as  a delimiter.  The  first  of  the  pair  ig  simply  discarded 
during  processing. 

The  end  of  input  data  is  indicated  by  *E*  appearing  in  the  first  three 
columns  of  the  last  data  card. 


11.  While  the  length  of  the  unique  identifier  of  the  input  data  set  (accession 
number  or  AD  number)  is  as  arbitrary  as  the  length  of  any  other  input  data  item, 
proper  program  operations  can  not  be  expected  unless  the  first  ten  characters 
uniquely  define  that  document.  Alphanumeric  ordering  of  documents  by  accession 
or  AD  number  is  based  only  on  the  first  ten  characters  (first  word). 


23/24 


5.  OUTPUT 


The  usefulness  of  any  cataloging  system  is  dependent  upon  the  accuracy  of 
the  information  it  contains.  Misfiled  catalog  cards  or  inaccuracies  causing 
entries  on  computer  printouts  to  be  misordered  can  cause  the  "loss"  of  documents 
in  many  cases.  With  a manual  filing  system  improperly  filed  cards  can  be  the 
result  of  informational  errors  on  the  file  cards  or  human  error  in  integrating 
the  cards  into  the  rest  of  the  system.  This  latter  error  is  inherently  absent 
from  computer  generated  catalogs.  "Lost"  documents  occur  only  because  of  errors 
of  informational  content. 

To  minimize  errors  of  informational  content  in  the  data  base,  and  hence  in  the 
computer  generated  listings,  Program  ADM  has  an  output  option  that  lists  and 
identifies  the  input  data  items  of  each  input  data  set  on  a separate  page.  An 
example  is  shown  in  figure  4.  This  format  is  easy  to  read  and  provides  a reasonable 
way  to  check  for  keypunch  transcription  errors.  Whatever  is  shown  in  this  listing 
is  what  will  be  placed  in  the  data  base.  In  addition  to  showing  what  information 
is  present,  it  also  indicates  which  input  data  items  are  not  present.  The  action 
indicating  character  (A,  D,  or  M)  is  printed  at  the  top  of  the  page.  This  output 
option  is  controlled  by  a parameter  read  from  the  first  input  card  of  a data  deck 
(see  section  4).  If  the  option  is  selected  (IPRINT=1)  a page  is  produced  for  every 
recognized  input  data  set  in  the  run.  If  it  is  not  selected  no  printout  of  this 
type  is  produced. 

One  other  type  of  printout  is  produced  by  the  program,  a card  image  by  card 
image  listing  as  shown  in  figure  5.  In  addition  to  reproducing  all  input  data  set 
cards,  this  listing  also  contains  error  messages  detailing  card  format  errors 
detected  by  the  program.  These  error  messages  are  discussed  in  section  6.  The 
messages  appear  as  close  to  the  card  containing  the  error  as  program  logic  will 
allow.  This  listing  is  not  written  directly  to  the  output  file  because  selecting 

the  option  of  the  page  per  document  printout  would  cause  it  to  be  interspersed 

'\  2 

with  the  card  image  listing.  To  avoid  this  the  card  images  and  error  messages 
are  written  to  TAPE3  and  copied  to  output  after  program  execution  has  been  completed. 


12.  Some  might  find  interspersing  the  card  images  with  the  page  per  document 
printout  to  be  desirable.  The  program  could  be  easily  modified  to  give  this. 
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Figure  4.  Sample  of  Page  Per  Document  Output 
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Example  of  Card  Image  Output 
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6.  CORRECTING  INPUT  DATA  SET  ERRORS 


In  dealing  with  input  data  sets  two  types  of  errors  will  be  encountered. 

The  first  type  are  errors  in  informational  content  - data  transcription  errors. 

The  second  type  are  those  detected  by  the  program  - format  errors.  Both  types 
of  errors  can  always  be  corrected  by  brute  force  - correcting  the  error  and 
(usuall>)  repunching  all  the  data  following  the  error  because  of  an  accompanying 
insertion  or  deletion  of  characters.  This  discussion  considers  alternatives  to 
the  brute  force  technique. 

In  general,  errors  of  the  first  type  are  more  straightforward  to  correct  as 
there  are  but  two  possible  techniques  involved.  First,  if  incorrect  characters 
can  be  replaced  one-for-one  with  correct  characters,  there  is  no  problem.  The 
length  of  the  input  data  item  will  not  have  changed  and  there  will  be  no  impact 
on  the  remainder  of  the  input  data  set.  However,  it  will  commonly  occur  that  the 
correction  will  entail  increasing  or  decreasing  the  number  of  characters  in  the 
input  data  item,  i.e.,  changing  its  length.  Changing  the  length  of  an  input  data 
item  on  a card  requires  shifting  everything  which  follows  it  either  to  take  up  the 
created  space  or  provide  the  needed  space.  In  this  case  where  the  correction 
shortens  or  lengthens  an  input  data  item  the  preferred  method  of  correction  is  to 
append  to  the  end  of  the  input  data  set  the  appropriate  two-character  identifier 
and  the  corrected  input  data  item.  As  discussed  earlier  this  will  cause  the 
incorrect  input  data  item  to  be  replaced  by  the  corrected  one  in  the  input  data 
set  assembled  in  the  computer  (see  the  discussion  associated  with  figure  3 in 
section  4). 

Format  errors  are  basically  corrected  by  one  of  the  two  methods  described 
for  informational  content  errors.  However,  the  procedure  for  making  the  format 
corrections  can  in  cases  be  more  involved.  The  error  messages  associated  with 
each  of  the  format  errors  are  given  below  along  with  a discussion  of  the  meaning 
and  a method  for  correcting  the  error.  Format  error  messages  appear  in  the  card 
image  listing  as  close  to  the  card  containing  the  error  as  practical. 

1.  CARD  XXXX  BEGINS  A NEW  DATA  SET  FOLLOWING  AN  IMPROPERLY  TERMINATED 
DATA  SET. 

The  data  for  an  input  data  set  end  in  columns  71  or  72  and  are  not  followed 
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by  a blank  card  to  supply  the  required  blank  colutnn(s)  indicating  the  end  of  the 
input  data  set. 


I 


1 


This  error  is  corrected  by  inserting  a card  blank  in  columns  1-72.  The  mes- 
sage can  also  indicate  missing  or  out  of  order  cards  in  the  deck. 

2.  CARD  XXXX  CONTAINS  TWO  SUCCESSIVE  BLANK  COLUMNS  FOLLOWED  BY  ADDITIONAL 
DATA.  FOLLOWING  CARDS  WILL  BE  IGNORED  UNTIL  A NEW  DATA  SET  IS  INITIATED. 

Two  (or  more)  successive  blank  columns  inadvertently  appear  imbedded  in  an 
input  data  set.  The  problem  is  corrected  by  filling  the  excess  blank  columns  with 
arbitrary  characters  (thus  eliminating  the  format  error)  and  adding  the  correct 
two-character  identifier  and  input  data  item  to  the  end  of  the  input  data  set. 


3.  ONE  CHARACTER  IDENTIFIERS  ARE  NOT  PERMITTED.  DATA  PRECEDING  NEXT  VALID 
IDENTIFIER  IGNORED. 

One  of  the  characters  of  a two-character  identifier  has  been  omitted,  e.g. , 

*T*  appears  instead  of  *TI*.  Again  the  correction  process  is  accomplished  in  two 
steps.  First  create  the  desired  two-character  identifier  at  the  point  of  the 
problem  by  usurping  the  position  of  the  first  character  of  the  input  data  item. 

*T*ALICE  IN  WONDERLAND 
*TI*LICE  IN  WONDERLAND 

Then  append  the  desired  identifier  and  input  data  item  to  the  end  of  the  input  data 
set. 


A.  CARD  XXXX  CONTAINS  TWO  SUCCESSIVE  IDENTIFIERS.  THE  FIRST  ONE  IS  IGNORED. 


An  example  of  this  is  *TI**CA*.  This  type  of  error  is  corrected  by  replacing 
the  two  asterisks  of  the  second  identifier  with  arbitrary  characters  other  than 
asterisks  and  appending  a new  title  and  corporate  author  at  the  end  of  the  input 
data  set  (with  the  appropriate  identifiers,  of  course). 

5.  CARD  XXXX  IS  IGNORED  BECAUSE  IT  DOES  NOT  BEGIN  A NEW  DATA  SET. 

This  message  is  printed  whenever  a new  input  data  set  is  not  begun  on  a card 
following  a card  with  two  successive  blank  columns.  It  is  most  likely  to  occur  in 
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conjunction  with  the  format  error  numbered  2 above.  It  may  also  occur  because  of 
an  error  in  indicating  the  beginning  of  a new  data  set  or  because  of  missing  or 
misordered  cards.  If  it  occurs  in  conjunction  with  format  error  2,  fixing  that 
error  will  also  correct  this  error. 

6.  CARD  XXXX  CONTAINS  AN  IMPROPERLY  TERMINATED  IDENTIFIER.  DATA  PRECEDING 
NEXT  VALID  IDENTIFIER  IGNORED. 

The  program  expected  to  find  an  asterisk  terminating  a two-character  identifier 
and  it  did  not.  This  is  corrected  by  supplying  the  expected  asterisk  and  adding  the 
same  identifier  and  its  input  data  item  at  the  end  of  the  input  data  set,  e.g., 

niALICE  IN  WONDERLAND 
*TI*LICE  IN  WONDERLAND 

etc. 


f 


) 
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7.  DATA  SET  HAS  NO  ACCESSION  NUMBER  OR  AD  NUMBER 

Every  data  set  must  have  a unique  accession  number  (or  AD  number  if  no  acces- 
sion number  is  used)  before  it  can  be  properly  processed.  The  previous  input  data 
set  has  none.  One  must  be  supplied. 

8.  XY  IS  NOT  RECOGNIZED.  THE  FOLLOWING  DATA  CAN  NOT  BE  PROCESSED 

XY  are  two  characters  which  should  be  a two-character  identifier  which  is 
recognized  by  the  program  but  is  not.  The  error  is  corrected  by  replacing  one  or 
both  of  the  characters  with  correct  characters  as  required. 

The  basic  technique  used  to  correct  errors  2-6  is  applicable  to  situations  not 
explicitly  discussed  that  can  arise  from  compound  errors.  First,  fix  the  format 
error  so  that  the  program  will  not  consider  it  an  error.  Second,  add  the  needed 
identifiers  and  input  data  items  to  the  end  of  the  input  data  set. 
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7.  MAINTAINING  THE  DATA  BASE 


A data  base  is  not  generally  static.  The  collection  of  documents  it  describes 
gains  and  loses  members  and  individual  data  items  require  changes  to  correct  errors, 
or  to  add  or  delete  information.  Program  ADM  specifically  performs  all  these  func- 
tions , viz. , 

1 . new  data  sets  may  be  added 

2.  old  data  sets  may  be  deleted 

3.  individual  data  items  within  a data  set  may  be  added,  deleted  or  replaced 

Maintaining  the  data  base  consists  of  using  these  functions  to  update  an  existing 
data  base.  All  three  functions  may  be  performed  on  the  data  base  in  any  run. 

When  an  input  data  set  is  to  be  added  to  the  data  base  the  action  indicating 
character  is  A.  The  rules  governing  the  addition  of  input  data  sets  are  easily 
stated. 

1.  The  input  data  set  must  have  an  accession  number  (or  AD  number  if  no  acces- 
sion number  is  used)  which  is  not  already  in  the  data  base. 

2.  The  input  data  set  may  additionally  contain  any  other  combination  of  input 
data  items,  provided. 

3.  That  total  storage  for  the  resulting  data  set  does  not  exceed  60  computer 
words  (54  for  data  items,  six  preceding  the  data  items). 

If  an  attempt  is  made  to  add  an  input  data  set  to  the  data  base  and  its  accession 

number  (or  AD  number  if  no  accession  number  is  used)  is  a duplication  of  one  exis- 
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ting  in  the  data  base,  the  input  data  set  is  rejected  with  the  error  message 


13.  The  error  messages  discussed  in  this  section  appear  in  the  card  by  card  output 
of  the  input  data  sets.  They  can  be  printed  only  when  a new  data  base  is  being  con- 
structed. The  error  message  will  follow  the  listing  of  the  applicable  input  data 
set,  but  there  may  be  as  many  as  127  other  data  sets  listings  in  between  because  the 
error  can  not  be  discovered  when  the  input  data  set  is  initially  processed  (see 
section  8.1 ) . 


ACCESSION  NUMBER  OR  AD  NUMBER  IS  CURRENTLY  IN  THE  DATA  BASE 
AND  CAN  NOT  BE  DUPLICATED 

To  delete  a data  set  from  the  data  base  the  action  indicating  character  is  D. 
The  only  input  data  item  needed  on  the  card  is  the  accession  number  (or  AD  number 
if  no  accession  number  is  used).  If  an  attempt  is  made  to  delete  a nonexistent 
data  set,  one  of  the  following  error  messages  is  printed  as  appropriate. 

ACCESSION  NUMBER  IS  NOT  IN  DATA  BASE 

AND  CAN  NOT  BE  DELETED 

AD  NUMBER  IS  NOT  IN  DATA  BASE  AND  CAN 

NOT  BE  DELETED 

Input  data  sets  designed  to  modify  existing  data  sets  in  the  data  base  use 
M as  the  action  indicating  character.  A data  set  may  be  modified  by  exchanging 
one  or  more  input  data  items  for  the  corresponding  data  items  already  existing  in 
the  data  base.  One  or  more  data  items  may  also  be  added  to  the  data  set  or  existing 
data  items  may  be  deleted.  Deletion  is  accomplished  by  following  the  two-character 
input  data  item  identifier  by  a minus  sign,  as  *TI*-,  which  would  delete  the  title. 
Additions  and  exchanges  are  both  accomplished  simply  by  including  the  input  data 
item  and  its  two  character  identifier  in  the  input  data  set.  The  data  set  to  be 
modified  is  identified  in  the  input  data  set  by  the  appearance  of  the  accession 
number  (or  the  AD  number  if  no  accession  number  is  used). 

In  the  event  that  an  attempt  is  made  to  modify  a data  set  not  in  the  data 
base,  one  of  the  following  error  messages  is  printed  as  appropriate. 

ACCESSION  NUMBER  IS  NOT  IN  DATA 

BASE  AND  CAN  NOT  BE  MODIFIED 

AD  NUMBER IS  NOT  IN  DATA  BASE  AND 

CAN  NOT  BE  MODIFIED 

Should  any  of  the  format  errors  numbered  2-8  in  section  6 be  detected  in  the 
course  of  creating  a new  data  base  the  following  error  message  is  printed 
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THIS  DATA  SET  MUST  BE  CORRECTED  BEFORE  IT  WILL  MODIFY  THE 
DATA  BASE  IN  THE  MANNER  DESIRED 


This  is  simply  a reminder  that  the  input  data  set  containing  the  error  will  in  no 
way  be  reflected  in  the  new  data  base.  In  the  event  that  a format  error  of  the 
type  numbered  1 in  section  6 is  encountered  this  message  is  not  printed,  but  it 
must  be  kept  in  mind  that  the  incorrectly  terminated  input  data  set  referred  to 
in  the  error  message  also  will  not  be  reflected  in  the  new  data  base.  It  is  best 
to  insure  that  no  such  errors  remain  in  the  input  data  sets  when  they  are  used  to 
create  a new  data  base. 





8.  PROGRAM  ADM 


In  its  present  configuration  Program  ADM  requires  about  57,000  octal  words 
of  core  in  which  to  execute.  It  requires  six  files:  INPUT,  OUTPUT,  an  auxiliary 
output  file  (TAPE3),  a file  for  the  old  data  base  (TAPEl  = OLDFIL),  a file  for  the 
new  data  base  (TAPE2  = NEWFIL),  and  a scratch  file  (TAPE4).  ADM  is  written  entirely 
in  COG  FORTRAN  Extended  Version  4.  It  uses  the  .AND.  (logical  product)  and  .OR. 
(logical  sum)  masking  expressions  as  well  as  the  SHIFT  function  to  do  left  circular 
bit  shifting  operations.  Additionally  much  of  the  coding  is  necessarily  predicated 
on  60  bit  words  and  a particular  set  of  six  bit  character  representations.  However, 
an  experienced  programmer  should  be  able  to  convert  the  program  to  another  language 
and/or  computer  without  excessive  difficulty  in  most  cases. 

8.1  THE  MAIN  PROGRAM 

The  main  program  reads  a single  card  at  the  beginning  of  each  run  which  deter- 
mines if  a new  data  base  is  to  be  created,  if  an  old  data  base  exists  as  input,  and 
whether  or  not  the  page  per  document  printout  is  to  be  generated.  If  the  run  is 
not  to  generate  a new  data  base,  the  program  simply  proceeds  to  call  subroutine 
DECODE  enough  times  for  the  subroutine  to  read  and  check  the  format  of  all  the 
input  data  sets,  and  print  the  specified  output.  DECODE  is  called  once  for  each 
recognizable  input  data  set.  A maximum  of  128  input  data  sets  may  be  processed  in 
the  loop  calling  DECODE  before  the  main  program  must  recycle  and  reinitialize  the 
loop. 


In  the  event  that  a new  data  base  is  to  be  generated  and  no  old  data  base  is 
input  to  the  program  for  updating,  the  main  program  stores  the  first  128  input  data 
sets  read  by  DECODE^ ^ in  the  exact  form  in  which  they  will  appear  in  the  data  base. 


14.  The  limit  of  128  is  related  to  the  maximum  number  of  input  data  sets  which  the 

program  can  store  before  having  to  dump  them  on  to  a mass  storage  device.  Input 

data  sets  are  not  stored  unless  a new  data  base  is  to  be  created,  but  the  limit  is 

always  in  force. 

15.  If  fewer  than  128  input  data  sets  are  being  processed,  then  it  uses  only  that 
number. 


The  next  step  is  to  order  the  stored  input  data  sets  al phanumerically  by  their 
accession  numbers  (or  AD  number  if  no  accession  number  is  used).  This  is  done 
by  subroutine  SORT.  Once  ordered,  the  input  data  sets  are  written  on  NEWFIL 
(=TAPE2)  in  alphanumeric  order.  If  more  input  data  sets  are  processed  in  the 
same  run,  the  program  continues  by  treating  the  original  128  as  an  old  data  base 
to  be  updated.^® 

When  a new  data  base  is  to  be  generated  by  updating  an  existing  data  base, 
the  procedure  is  necessarily  different  from  that  just  described.  The  differences 
arise,  however,  only  after  the  128  input  data  sets  have  been  stored  and  ordered 
by  subroutine  SORT.  The  updating  of  the  old  data  base  then  takes  place  by  merging 
the  input  data  sets  with  the  old  data  base  data  sets.  This  is  accomplished  by 
always  comparing  the  alphanumerical ly  smallest  unprocessed  member  of  each  list  to 
determine  what  actions  are  to  be  taken.  These  actions  depend  upon  which  member 
is  smaller,  if  either,  and  what  the  nature  of  the  action  specifying  character  of 
the  input  data  set  being  examined  is.  The  possible  actions  are: 

1.  If  the  unique  data  set  identifier  from  the  old  data  base  is  alphanumer- 
ically  smaller  than  the  one  from  the  input  data  set,  the  old  data  set  is  trans- 
ferred to  the  new  (intermediate  or  final)  data  base. 

2.  If  the  input  data  set  identifier  is  smaller  than  the  old  data  set  identi- 
fier and  the  input  data  set  is  to  be  added  to  the  new  data  base,  it  is  transferred 
to  the  new  data  base.  If  it  is  to  have  deleted  or  modified  an  existing  old  data 
set  an  error  has  occurred  as  that  data  set  was  not  present  in  the  old  data  base. 

Such  an  error  removes  the  input  data  set  from  further  consideration  without  aborting 
the  formation  of  the  new  data  base.  An  appropriate  error  message  is  printed  (see 
section  7). 

3.  If  the  input  data  set  and  the  old  data  set  are  alphanumerical ly  equal  and 
the  action  to  be  performed  by  the  input  data  set  is  deletion  of  an  old  data  set, 
then  the  old  data  set  is  deleted  and  nothing  is  added  to  the  new  data  base.  If  the 
action  to  be  performed  is  modification  rather  than  deletion,  then  the  requested  mod- 
ifications are  made  and  the  modified  old  data  set  is  transferred  to  the  new  data 


16.  Before  the  final  new  data  base  is  created,  new  intermediate  data  bases  are 
created  for  every  128  input  data  sets  processed. 
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base.  An  error  occurs  when  the  action  specified  by  the  input  data  set  is  addition 
to  the  new  data  base,  since  the  data  base  already  contains  a document  with  that 
identifier.  The  error  does  not  abort  the  creation  of  the  new  data  base,  but  that 
input  data  set  is  removed  from  further  consideration.  An  appropriate  error  message 
is  printed  (see  section  7). 

In  general  one  of  the  lists  will  become  exhausted  before  the  other.  When  this 
occurs  the  program  simply  proceeds  to  run  through  the  other  list  to  its  conclusion. 

When  both  lists  have  been  completely  processed,  a new  intermediate  or  final  data  < 

base  exists.  It  is  final  if  no  more  input  data  sets  remain  to  be  processed.  Other- 
wise it  is  an  intermediate  data  base  and  the  program  will  cycle  additional  times  to 
incorporate  all  the  remaining  input  data  sets.  At  each  additional  cycle  the  newly 
created  intermediate  data  base  takes  the  role  of  the  old  existing  data  base  to  be 
merged  with  the  next  group  of  input  data  sets. 

When  the  final  new  data  base  has  been  constructed,  a check  is  made  to  determine 
if  it  is  residing  on  the  correct  file  to  be  saved  (TAPE2  = NEWFIL).  If  it  is  not, 
it  is  copied  from  the  scratch  file  (TAPE4)  to  TAPE2. 

8.2  SUBROUTINE  DECODE 

Subroutine  DECODE  reads  the  cards  of  the  input  data  sets.  It  is  called  from 

I 

the  main  program  each  time  a data  set  is  to  be  read,  and  it  reads  and  processes 
cards  one  at  a time  until  an  input  data  set  has  been  completed.  Each  card  image 
is  written  on  TAPE3  after  being  read,  later  to  be  copied  to  the  output  file. 

Each  card  that  is  read  is  examined  character  by  character  to  determine  each 
character's  significance  to  the  program.  A character  may  be  part  of  an  input  data 
item,  part  of  a two-character  identifier,  the  action  indicating  character  (A,  D, 

M,  or  E),  or  an  asterisk  or  colon  serving  in  the  role  of  a delimiter  (see  section  4). 

Characters  which  are  part  of  input  data  items  or  two-character  identifiers  are 
stored  appropriately  as  is  the  action  indicating  character.  Delimiting  asterisks  or 
colons  cause  the  input  data  items,  two-character  identifiers  and  the  action  indica- 
ting character  to  be  correctly  stored. 

As  each  input  data  item  is  completed  its  two-character  identifier  is  checked 
for  validity.  Valid  identifiers  were  given  earlier  in  table  1.  (They  can  be 
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changed  simply  by  changing  the  data  statement  for  the  NAME  array.)  An  invalid 
identifier,  one  not  matching  any  allowed  by  the  program,  causes  the  input  data 
item  to  be  discarded.  A valid  identifier  causes  further  processing  of  the  input 
data  item.  This  processing  is  composed  of  making  the  punctuation  spacing  conform 
to  the  set  of  rules  given  previously  in  table  3,  and  moving  the  item  into  the 
IDATA  array.  Provision  has  been  made  for  introducing  format  tests  for  individual 
input  data  items,  but  no  such  tests  are  currently  performed.  Its  position  in  the 
IDATA  array  and  the  number  of  computer  words  required  for  storage  are  stored  in 
the  LENLOC  array  according  to  the  two-character  identifier.  LENLOC  is  a 2x20 
array.  The  first  index  takes  the  value  "1"  when  the  length  of  the  input  data  item 
is  being  specified;  "2"  when  the  location  of  the  first  word  of  the  input  data  item 
in  the  IDATA  array  is  being  specified.  The  second  index  signifies  the  nature  of 
the  input  data  according  to  the  numbers  used  in  table  1. 

Should  an  identifier  be  used  more  than  once  in  the  same  input  data  set,  the 
input  data  items  related  to  each  usage  are  stored  in  the  IDATA  array  but  only  the 
position  and  length  of  the  last  to  be  encountered  are  retained.  This  permits 
easier  corrections  of  errors  in  input  data  set  cards  than  would  otherwise  be 
possible  (see  section  4).  After  all  input  data  items  in  a data  set  have  been 
stored  in  the  IDATA  array,  they  are  rearranged  in  the  order  of  table  1 in  the 
lODATA  array.  The  LENLOC  array  is  adjusted  to  reflect  this  new  order.  During 
this  rearrangement  any  superseded  input  data  items  are  discarded. 

The  page  per  document  output  array  is  printed  from  subroutine  DECODE. 

8.3  SUBROUTINE  ERROR 

Subroutine  ERROR  is  primarily  a source  of  error  messages  related  to  machine 
detectable  errors.  Associated  with  the  detection  of  certain  errors  is  a require- 
ment for  reinitialization  of  some  quantities.  This  is  also  handled  in  subroutine 
ERROR.  Error  messages  are  written  on  TAPE3  and  hence  appear  in  the  card  image 
listing. 

8.4  SUBROUTINE  SORT 

Subroutine  SORT  is  used  to  order  groups  of  input  data  sets  by  their  accession 
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number  (or  AD  number  if  no  accession  number  is  used)^^  so  that  they  may  be 

integrated  into  the  existing  data  base  efficiently.  The  ordering  is  done  alpha- 

numerically  (see  section  3)  and  only  the  first  word  of  the  accession  number  or 

1 8 

AD  number  affects  the  ordering  process.  SORT  is  designed  to  order  a maximum  of 

1 9 

128  input  data  sets  in  any  call  to  the  subroutine. 

At  the  beginning  of  the  ordering  process  each  entry  in  the  LIST  array  is 
treated  as  a one  accession  number  subset  of  the  set  of  128  accession  numbers  being 
ordered.  During  the  first  step  of  the  ordering  process,  the  first  and  second 
subsets  of  one  accession  number  each  (as  they  occur  in  the  LIST  array)  are  merged 
to  form  a new  ordered  subs,  t containing  two  accession  numbers.  Likewise  the  third 
and  fourth,  fifth  and  sixth,  etc.,  are  merged  resulting  in  128/2  = 64  ordered  sub- 
sets of  two  accession  numbers  each.  In  this  context  "merging"  is  the  process  of 
combining  two  ordered  lists  into  a single  ordered  list  by  repeatedly  comparing 
the  smallest  remaining  element  of  each  list  and  choosing  the  smallest  of  these  as 
the  next  element  of  the  combined  list. 

Step  two  causes  the  first  and  second  two-member  subsets  to  be  merged  forming 
a four-member  ordered  subset.  Again  the  remaining  pairs  (third  and  fourth,  etc.) 
of  two-member  subsets  are  similarly  merged  to  form  64/2  = 32  ordered  subsets  of 
four  accession  numbers.  The  general  process  is  continued  until  a single  subset 
consisting  of  128  ordered  accession  numbers  results.  The  process  is  illustrated 
in  the  "tournament  chart"  of  figure  6. 

In  actual  practice  no  array  is  ever  created  which  contains  the  elements  of 
the  subsets  of  the  LIST  array  in  proper  alphanumeric  order.  Instead  the  order  is 
kept  in  the  INAD  and  INADS  arrays.  The  order  from  the  previous  ordering  step  is 


17.  For  convenience,  the  use  of  the  words  "accession  number"  during  the  remainder 
of  the  discussion  of  subroutine  SORT  will  be  taken  to  imply  the  phrase  "or  AD  number 
if  no  accession  number  is  used." 

18.  A good  reason  for  using  no  more  than  10  characters  (one  computer  word)  for  the 
accession  number. 

19.  This  maximum  could  easily  be  increased  by  powers  of  two  at  the  expense  of  increas- 
ing the  program  size.  A decrease  in  running  time  for  many  cases  could  be  expected. 
Currently  about  17,000  octal  storage  locations  are  involved  in  the  ordering  part  of 
the  program. 
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N/16  = 1 M/8  = 2 N/4  = 4 N/2  =8  N = 16  Ordered  Accession  Numbers  per  Subset 


Figure  6.  An  Illustration  of  the  Ordering  Process  Used  in  Subroutine  SORT 


kept  in  INADS,  while  the  order  for  the  current  step  is  formed  in  INAD.  At  the 
conclusion  of  the  entire  ordering  process,  I.'iADS(l)  indicates  the  position  of  the 
alphanumerical ly  smallest  e^  _nt  of  the  LIST  array;  INADS(2)  of  the  next  smallest; 
etc.  At  the  conclusion  of  precedi nq  ordering  steps  the  INADS  array  contains 
similar  information  for  each  subset.  Thus  for  the  next  to  the  last  ordering  step, 
INADS(l)  contains  the  position  of  the  smallest  element  of  the  first  64  element 
subset  of  LIST,  INADS{2)  the  second  smallest,  etc.  At  the  same  time  INADS(65) 
contains  the  position  of  the  smallest  element  of  the  second  64  element  subset  of 
LIST,  INADS(66)  the  second  smallest,  etc. 

The  LIST  array  is  preset  in  the  main  program  to  lOH;  = blank) 

before  the  accession  numbers  to  be  ordered  are  determined.  In  the  event  that 
fewer  than  128  accession  numbers  are  being  ordered,  say  N,  the  preset  value  con- 
stitutes the  final  128-N  entries  in  the  LIST  array.  They  always  order  last,  and 
as  only  the  first  N entries  will  be  considered  elsewhere  in  the  program,  they 
play  no  further  role. 

The  ordering  process  which  has  just  been  described  requires  only  that  the 

total  number  of  elements  being  ordered  is  expressable  as  an  integral  power  of  2. 

When  the  SORT  subroutine  is  initially  called,  the  minimum  power  of  2,  greater 

or  equal  to  the  number  of  accession  numbers  being  ordered  (and  £ 128)  is  determined, 

and  only  that  number  of  elements  of  the  LIST  array  are  ordered.  This  increases  the 

20 

efficiency  of  the  subroutine  when  ordering  less  than  65  accession  numbers. 


20.  The  subroutine  as  used  in  this  program  gains  very  little  from  this  feature. 
However,  SORT  can  be  used  as  a general  ordering  routine  and  in  other  applications 
the  increased  efficiency  may  be  desirable. 
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lACT 


Equivalent  to  lACTION 


lACTION(I)  Indicates  the  action  required  relative  to  the  I-th  input  data  set 


(used  wi th- 
out  a sub- 
script in 
subroutine 
DECODE) 


beinq  processed:  = IRA  (R  indicates  a right  justified  Hollerith 

constant  with  zero  fill),  add  the  document  to  the  data  base;  = IRD, 
delete  the  document  from  the  data  base;  = IRM,  modify  the  document 
in  the  existing  data  base;  and  = IRE,  signifies  the  end  of  input. 


IAN  The  location  in  lODATA  of  the  accession  number  (or  AD  number  if  no 

accession  number  exists)  of  the  data  set  most  recently  read  from 
the  old  data  base. 


IBLANK(I)  An  array  whose  I-th  member  (1  1 I £ 9)  contains  (lO-I)  right 

justified  blanks  with  zero  fill. 


IBUFF 


ICHAR(I) 


ICHARPR 

ICNTCRD 


A word  in  which  characters  from  an  input  data  item  are  assembled 
one  by  one. 

The  80  columns  of  an  input  card  which  has  been  read  are  stored  in 
ICHAR,  one  character  per  word,  right  justified  with  zero  fill. 

The  previously  examined  character  of  the  current  input  data  set. 

The  number  of  input  cards  read. 


ICONT  If  ICONT  = 1 there  are  additional  characters  to  be  examined  from 

the  current  input  data  set.  If  ICONT  = 0 the  examination  of  the 
characters  is  terminated. 


ICOUNT  , An  index  used  to  specify  the  input  data  set  currently  eligible  to 

interact  with  the  old  data  set. 

ICT  A word  containing  a single  character  of  an  input  data  set,  all 

other  bits  zero. 
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•M 


ICTPR 


The  previously  examined  character  in  the  process  of  correctly 
spacing  punctuation,  right  justified  with  zero  fill. 


IDATA(I) 


IDELETE(I) 


IDENT 


lENDOLD 


I FLAG 


IMASK(I) 

I NCR 

I NEW  (Main 
Program) 

INEU  (Sub- 
routine 
Decode) 

INFO(I) 

INPEND 


I 

M 


Intermediate  storage  of  all  punctuation  processed  data  items 
(including  duplicates)  relative  to  the  input  data  set  being 
processed. 

The  accession  number  (or  AD  number  if  no  accession  number  exist.') 
of  the  I-th  data  set  deleted  from  the  data  base. 

A word  in  which  the  two-character  identification  codes  are 
assembled  right  justified  with  zero  fill. 

If  lENDOLD  =1  ill  data  sets  on  the  old  data  base  have  been  read. 
Otherwise  unreao  data  sets  remain. 

A flag  which  is  set  to  unity  when  an  error  is  detected  by  the  program 
which  prohibits  an  input  data  set  from  being  added  to  a new  data  base. 

For  1=1,...  ,10, a mask  of  6 consecutive  bits  set  to  1 (111111 
or  77  octal),  occupying  bit  positions  59-6(1-1)  to  54-6(1-1). 

The  difference  in  length  between  a data  item  modifying  the  data  base 
and  the  data  item  it  is  modifying. 

The  logical  unit  on  which  the  new  data  base  is  written. 


If  INEW  * 1 the  card  most  recently  read  is  the  first  card  of  an  input 
data  set.  Otherwise  the  most  recently  read  card  is  a continuation  of 
an  already  begun  input  data  set. 

Intermediate  storage  for  the  input  data  item  being  examined. 

If  INPEND  = 1 all  input  data  sets  have  been  read.  Otherwise  input 
data  sets  remain  to  be  read. 
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lODATA(I) 

lOLD 

lORD 

lORDER(I) 

IPOS 

IPRINT 

IREPEAT 

IRON 
I STAR 


ISUM 


Contains  the  I-th  (nx)dulo  128)  input  data  set  as  processed  by  sub- 
routine DECODE.  lODATA(l)  = length  of  processed  input  data  set; 
IODATA{2)  - IODATA(6)  = table  giving  lengths  and  locations  within 
lODATA  of  processed  data  items. 

The  logical  unit  on  which  the  old  data  base  resides. 

Equivalent  to  lORDER. 

The  accession  number  (or  AD  number  if  no  accession  number  exists) 
of  the  I-th  input  data  set  processed  this  run,  modulo  128. 

A counter  which  indicates  where  within  a word  a character  should 
be  stored. 

IPRINT  = 1 causes  a one-page  printout  for  each  input  data  set 
processed  by  the  program  (see  section  6'.  Otherwise  this  form 
of  output  is  omitted. 

The  sum  of  the  processed  lengths  of  all  data  items  from  the  input 
data  set  being  examined  which  have  been  replaced  because  of 
multiple  use  of  the  same  two-character  identifier  within  the  input 
data  set  (see  section  8.2). 

A variable  which  controls  the  placement  of  input  data  items  in  the 
I DATA  and  lODATA  arrays. 

A variable  whose  value  is  used  in  identifying  the  two-character 
identifiers  in  an  input  data  set.  ISTAR  = 0 indicates  that  the 
program  is  searching  for  the  first  asterisk  setting  off  an  identi- 
fier (or  the  first  of  an  adjacent  pair  - see  section  5).  ISTAR 
= 1 indicates  that  the  search  just  described  has  been  successful 
for  the  character  just  examined.  ISTAR  =2,3,  and  4 simply  count 
the  characters  examined  from  the  time  ISTAR  became  1. 

An  upper  limit  to  various  do-loops  based  on  the  length  of  the  input 
data  item  being  processed. 
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I SUMS 


A printer  control . 


ITAPE(I,  J) 


IWORD 

JCOUNT 

•JNFO(I) 

JPOS 

JWORD 

LAST 

LELOd,  J) 

LENLOCd.  J) 
LISTORD(I) 
NAME ( I ) 


Stores  up  to  I = 128  lODATA  arrays  for  use  in  modifying  an 
existing  data  base  or  creating  a new  data  base.  All  input  data 
sets  in  ITAPE  interact  with  the  data  base  in  one  pass  through 
the  data  base. 

Counts  the  number  of  computer  words  in  the  input  data  item  being 
processed. 

Indicates  the  number  of  data  sets  deleted  from  the  old  data  base. 

Used  as  intermediate  storage  for  the  correct  punctuation-spaced 
input  data  item  being  considered. 

A counter  which  indicates  where  within  a word  a character  should 
be  stored. 

Counts  the  number  of  words  in  the  input  data  item  being  processed. 

The  length  of  the  input  data  set  being  processed. 

Similar  to  LENLOC,  LELO  is  used  when  a data  set  is  being  modified 
and  two  such  arrays  are  required  at  the  same  time.  LELO  refers 
to  the  input  data  set  containing  the  modifications. 

LENL0C(1,  J)  contains  the  number  of  computer  words  in  the  J-th 
data  item.  LEUL0C(2,  J)  indicates  the  location  of  the  first 
computer  word  of  the  data  item  in  the  lODATA  array. 

The  I-th  word  of  LISTORD  gives  the  location  in  the  lORDER  array 
of  the  I-th  alpnanumerical ly  smallest  element  of  that  array.  For 
all  J,  ITAPE  (LISTORD  (I),  0)  corresponds  to  lORDER  (LIST0RD( I ) ) . 

An  array  containing  all  the  two-character  identification  codes, 
one  per  word,  right  justified  with  zero  fill. 


i 

^ , 

I • 
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NCHK  If  MCHK  = 1 the  input  data  set  being  processed  has  at  least  an 

accession  number  or  an  AD  number.  If  NCHK  = 0 it  has  neither. 

NEWFIL  If  NEWFIL  = 1 a new  data  base  is  to  be  created  during  the  run. 

Otherwise  a new  data  base  is  not  created. 

NWORD  The  number  of  input  data  sets  processed  this  run,  modulo  128. 

OLDFIL  If  OLDFIL  = 1 on  old  data  base  is  being  updated  during  the  run. 

Otherwise  no  old  data  base  is  used. 


49/50 


ooooor*)o  o o o o o oooooooooooooooooooooo 


APPENDIX  B 
PROGRAM  LISTING 


program  ACM ( I NPUT , OUTPUT . OuCF I L . NE^F I L . TAPES . TAPE^ . TAPE  I =CLDF I L . TA 
lPEa=NE«FIL) 

COMMENT’S  SET  OFF  BY  ASTERISKS  ARE  IN  FORCE  FOR  ALL  STATEMENTS 
FOLLOWING  the  comments  UP  TO  THE  NEXT  GROUP  OF  SUCH  COMMENTS.  A 
COMMENT  FOLLOWED  BY  A NUMBER  IN  PARENTHESES  APPLIES  TO  THE 
FOLLOWING  statements  THROUGH  THE  STATEMENT  NUMBERED  WITH  THAT 
NUMBER.  FOR  THE  COMPLETE  DOCUMENTATION  OF  PROGRAM  ADM  SEE 
DAS-TR-76-I2  FORTRAN  SOFTWARE  FOR  CREATING  AND  MAINTAINING  A 
LIBRARY  cataloging  SYSTEM  ON  SCIENTIFICALLY  ORIENTED  COMPUTERS 
VOLUME  I.  PROGRAM  ADM  - THE  DATA  BASE. 

PROGRAM  ADM  USES  THE  FORTRAN  FUNCTIONS  MASK! I)  AND  SHIFT(I.J). 
MASK! I)  FORMS  A MASK  OF  I ONES  IN  BIT  POSITIONS  59  THROUGH  (60-1). 
BIT  POSITIONS  ARE  NUMBERED  LEFT  TO  RIGHT  FROM  59  TO  0.  SHIFT(I.J) 
AS  USED  IN  THIS  PROGRAM  (J  POSITIVE)  RESULTS  IN  A LEFT  END-AROUND 
SHIFT  OF  THE  WORD  I BY  J BITS.  THE  LOGICAL  .AND.  AND  .OR. 

OPERATORS  ARE  ALSO  USED.  THEY  DO  A BIT-BY-BIT  LOGICAL  SUM  OR 
PRODUCT  OF  THE  QUANTITIES  THEY  CONNECT. 

dimension  I tape (128. 60 ) . LENLOC ( 2 . 20 ) . L I STORD ( 1 28 ) . I ORDER (128). 

1 IACTION( 128) . LELO(2.20).  IDELETE(128) 

COMMON  /A/  I BUFF, I CHAR (90)  . I DENT, IPOS.  I RUN, I STAR. iWORD.NCHK, ICHARP 
IR. 1NF0( 100) . ICNTCRD. lORD. IODATA( 100) . IPRINT 
COMMON  /B/  IFLAG. IMASK( 10) 

INTEGER  OLDFILE 

data  IOLD/2/ . INEW/ 1 / , INPEND/0/ 

I = I-I 

define  imask  array  (10) 

DO  10  1=1.10 

IMASK  ( I ) =SHIFT  (7"?B  , ( 1 0 - I ) *6) 

10  continue 

WRITE  (3.530) 

READ  520.  OLDFILE. NEWFILE. IPRINT 
jCOUNT^O 


initialization  REQUIRED  BEFORE  PROCESSING  THE  NEXT  MB  (OR  c'EWER) 
input  data  sets 


i 


noooooo  oor')0 


20  CONTINUE 

ir  ( inpeno.eq.  1 ) go  to  ‘♦so 

CO  30  l-l . 120 
1 ORDER  I 1 )»tOH; ; 

30  CONTINUE  , 
lENOOLO-0 

DEFINE  THE  CORRECT  LOGICAL  UNIT  FOR  FILES  OLDFIL  AND  NEWFIL. 
OLOFIL  IS  INITIALLY  TAPE  I . LATER  ALTERNATES  BETWEEN  TAPE2  AND 
TAPE>+.  NEWFIL  IS  initially  TAPE2.  LATER  ALTERNATES  BETWEEN 
TAPE>+  AND  TAPE2. 

I TEMP* I OLD 
I OLD* I NEW 
I NEW- I TEMP 

IF  (OLDFILE.EQ. 1 ) REWIND  lOLD 
IF  (NEWFILE.EQ. 1 : REWIND  INEW 
NWORD-0 


BEGIN  LOOP  TO  PROCESS  INPUT  DATA  SETS 


DO  110  1*1,120 
‘+0  CONTINUE 

C CALL  SUBROUTINE  DECODE  TO  READ  AND  ORGANIZE  ONE  INPUT  DATA  SET 

call  decode  ( I act  I ON ( I ) . LENLOC ) 

C HAS  LAST  INPUT  DATA  SET  BEEN  READ 

IF  ( IACTIONI I ) .EQ. IREi  INPEND-1 
IF  ( lACTlONt I ) .EQ. IRE.AND.NEWFILE.EQ.O)  STOP  1 

C SKIP  REMAINDER  OF  LOOP  IF  A NEW  DATA  BASE  IS  NOT  BEING  CREATED 

IF  (NEWFILE.EQ. 0)  GO  TO  110 

C CHECK  IF  ERRORS  DETECTED  BY  THE  PROGRAM  IN  THE  INPUT  DATA  SET 

C ELIMINATE  IT  FROM  FURTHER  CONSIDERATION 

IF  ( IFLAG.NE. 1 ) GO  TO  50 
WRITE  (3.5>+0) 

GO  TO  ‘+0 
50  CONTINUE 

C IF  LAST  INPUT  DATA  SET  HAS  BEEN  READ  AND  NEW  DATA  BASE  IS  TO 

C BE  CREATED.  MERGE  OLD  DATA  BASE  AND  INPUT  DATA  SETS 

IF  ( lACTIONt I ) .EQ. 1RE.AND.NEWFILE.EQ. 1 ) GO  TO  120 
NWORD-NWORD+1 

C REPLACE  BLANKS  WITH  ZERO  BINARY 

LAST*I0DATA( 1 ) 

C NO  DATA  SET  MAY  EXCEDE  60  WORDS 

IF  (LAST. LE. 60)  GO  TO  60 
PRINT  550 

IF  (NEWFILE.EQ. 1 ) STOP  2 
60  CONTINUE 
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: REPLACE  blanks  with  COLONS  (ZERO  BINARY)  (70) 

CO  70  J. 7. last 

00  70  K»1 . 10 

ICT»SH1FT( 100ATA( J)  . (K-1 ) »6)  . ANO . I MASK ( 1 ) 

IF  (ICT.EQ.IL  1 lOOATA(J) «I0DATA( J) .AND. SHIFTIMASKISH) . ( lO-K) »6) 

70  CONTINUE 

C STORE  INPUT  DATA  SET  ACCESSION  NUMBER  (OR  AD  NUMBER)  FOR  LATER 

C ORDERING  OF  INPUT  DATA  SETS 

IORDER( I )«I0DATA(LENL0C(2. 1 ) ) 

IF  (LENL0C(2. I ) .EQ.O)  lORDER ( I ) * lODATA (LENLOC ( 2 .2 ) ) 

C ENCODE  LENLOC  ARRAY  (90) 

DO  90  K*1 .5 
LLL«0 
DO  90  L»1 
KL»(K-l ) •‘♦♦L 

LEN-LENLOC ( I . KL ) . ANO . 77B 
LOC  »LENL0C ( 2 . KL ) . ANO . 777B 

LLL»LLL.OR.  (SHIFT  (LEN.9^  (^+-L  )•  15 ) . OR  .SHI  FT  (LOC . (^-L ) • 15)  ) 

80  CONTINUE 

I0DATA(K>1 )>LLL 
90  CONTINUE 

C STORE  INPUT  DATA  SET  JUST  PROCESSED  IN  I TAPE  ARRAY  dOO) 

DO  100  J»1 .LAST 

1 TAPE ( I ,J)»IODATA(J) 

100  CONTINUE 

I 10  CONTINUE 

IF  (NEWFILE.EQ.O)  GO  TO  20 


A NEW  DATA  BASE  WILL  BE  PRODUCED.  ORDER  ALPHANUMERICALLY  THE 
INPUT  DATA  SETS  STORED  IN  ITAPE  TO  FACILITATE  THEIR  INTEGRATION 
INTO  THE  OLD  DATA  BASE  OR  FOR  THE  INITIAL  CONSTRUCTION  OF  A DATA 
BASE.  WHEN  INITIALLY  CONSTRUCTING  A DATA  BASE.  AN  OLD  DATA  BASE 
IS  CONSIDERED  TO  EXIST  AFTER  THE  FIRST  128  INPUT  DATA  SETS  HAVE 
BEEN  PROCESSED. 


120  CONTINUE 
I COUNT *1 

C ORDER  NEW  DATA  SETS  ALPHANUMERICALLY 

NWORDP-NWORD^l 

IF  (NWORDP.GT.  129)  GO  TO  I*+0 
DO  130  I«NW0RDP.128 
I0R0ER( 1 )«10L; : 

130  continue 
mo  CONTINUE 

CALL  SORT  (NWORD. lORDER.LlSTORD) 

C IF  OLD  data  base  EXISTS.  MERGE  INPUT  DATA  SETS  JUST  PROCESSED 
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UITH  OLD  DATA  BASE 
!F  :0LCFILE.EQ. 1 ) GO  TO  160 


NO  OLD  data  base  EXISTS.  WRITE  THE  ORDERED  INPUT  DATA  SETS  ON 
LOGICAL  UN'T  INEW.  NOTE  THAT  THIS  FILE  WILL  BE  CONSIDERED  AN  OLD 
DATA  BASE  MORE  INPUT  DATA  SETS  ARE  PROCESSED  DURING  THIS  RUN. 


DO  150  I-l.NWORD 

last»itape(listord( I ) . n 

WRITE  (INEW)  ( ITAPE(LISTORD( 1 ) . J) . J»1 .LAST) 
150  CONTINUE 
OLD*-  1LE»1 
lOLD*^ 

GO  TO  20 


AN  OLD  DATA  BASE  EXISTS.  MERGE  THE  ORDERED  INPUT  DATA  SETS  WITH 
THE  DATA  SETS  FROM  THE  OLD  DATA  BASE  TO  PRODUCE  A NEW  ORDERED  DATA 
BASE  ON  LOGICAL  UNIT  INEW. 


160  CONTINUE 

C HAVE  ALL  DATA  SETS  BEEN  READ  FROM  OLDFIL 

IF  ( lENDOLD.EQ. 1 ) GO  TO  190 
C READ  A DATA  SET  FROM  OLDFIL 

READ  MOLD)  N.  ( lODATA(L)  ,L*2.N) 

C WAS  END  OF  FILE  READ 

IF  (EOF(IOLD))  170, IBO 
C END  OF  file  WAS  READ 

170  CONTINUE 
lENOOLD*! 

IAN-1 

lODATAI 1 )-77770000000000000000B 
GO  TO  190 

C END  OF  file  WAS  NOT  READ.  DATA  SET  WAS  READ  FROM  OLDFIL 

180  CONTINUE 

IODATA( 1 )*N 

C DETERMINE  LOCATION,  IF  ANY,  OF  OLD  DATA  SET  ACCESSION  NUMBER 

C IN  lODATA 

I AN-10DATA(2)  , AN0.SHIFT(MASK(9)  .5*4) 

IAN-SHIFT( IAN, 15) 

IF  ( lAN.NE.O)  GO  TO  190 

C DATA  SET  HAS  NO  ACCESSION  NUMBER.  DETERMINE  LOCATION  OF  AD 

C NUMBER 
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I AN>SHirT( IAN. 30) 

190  continue 

C HAVE  ALL  DATA  SETS  FROM  THE  OLD  DATA  BASE  AND  ALL  INPUT  DATA 

C SETS  BEEN  PROCESSED 

IF  ( ICOUNT.GT.NWORO.AND. lENOOLD.EQ. I ) GO  TO  HBO 
C HAVE  ALL  INPUT  DATA  SETS  BEEN  PROCESSED 

IF  ( ICOUNT.GT.NWORO)  go  to  390 

C WILL  CURRENTLY  CONSIDERED  INPUT  DATA  SET  BE  TESTED  FOR 

C ADDITION  TO.  DELETION  FROM.  OR  MODIFICATION  OF  THE  DATA  BASE 

C AT  THIS  TIME 

IACT-IACTION(LISTORO( ICOUNT)) 

I ORO- 1 ORDER ( L I STORD ( I COUNT ) ) 

C IS  INPUT  DATA  SET  TO  BE  TESTED  FOR  ADDITION  TO  THE  DATA  BASE 

C AT  THIS  TIME 

IF  (lACT.NE.lRA)  GO  TO  220 

c FIND  the  appropriate  test,  data  set  with  smallest  alphanumeric 

C IDENTIFIER  WILL  BE  WRITTEN  ON  LOGICAL  UNIT  INEW. 

IF  (IORO.GE.O.ANO.IOOATA(IAN).GE.O)  go  to  200 
IF  (IORO.LT.O.ANO.IOOATA(IAN) .LT.O)  go  to  200 
IF  IIORO.GE.O)  GO  TO  300 
GO  TO  290 

c smallest  alphanumeric  identifier  found  by  subtraction 

200  CONTINUE 

IF  ( lORO-IOOATAt IAN))  300.210.290 

C TWO  DATA  SETS  IN  DATA  BASE  MAY  NOT  HAVE  THE  SAME  IDENTIFIER. 

C DO  NOT  CONSIDER  INPUT  DATA  SET  FURTHER. 

210  CONTINUE 

CALL  ERROR  (13) 

I COUNT- 1 COUNT* 1 
GO  TO  290 

C IS  INPUT  DATA  SET  TO  BE  TESTED  FOR  DELETION  FROM  THE  DATA  BASE 

C AT  THIS  TIME. 

220  CONTINUE 

IF  ( IACT.NE.lRO)  GO  TO  250 

C FIND  THE  APPROPRIATE  TEST.  WRITE  DATA  SET  FROM  OLD  DATA  BASE 

C ON  LOGICAL  UNIT  INEW  UNLESS  DATA  SET  IDENTIFIERS  MATCH.  THEN 

C DELETE. 

IF  ( lORO.GE.O.ANO. IOOATA( IAN) .GE.O)  GO  TO  230 
IF  ( lORO. LT.O. ANO. lOOATAt IAN) .LT.O)  GO  TO  230 
IF  (lORO.GE.O)  GO  TO  2H0 
GO  TO  290 

c equal  identifiers  found  by  subtraction 

230  CONTINUE 

IF  ( IORO-IOOATA(  IAN)  ) 2N0.‘*70.290 

C DATA  SET  TO  BE  DELETED  IS  NOT  IN  DATA  BASE.  DO  NOT  CONSIDER 

C INPUT  DATA  SET  FURTHER. 

2H0  CONTINUE 

CALL  ERROR  ( 1 '♦ ) 

ICOUNT- ICOUNT* 1 
GO  TO  190 
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250  continue 

IS  INPUT  DATA  SET  TO  BE  TESTED  TOR  HOOIFICATION  OF  THE  DATA 

base  at  this  time 

IF  ( lACT.NE. IRM)  GO  TO  290 

find  the  appropriate  test  write  data  set  FROM  OLD  DATA  BASE 
ON  LOGICAL  UNIT  I NEW  UNLESS  DATA  SET  IDENTIFIERS  MATCH.  THEN 
MOOIFV  BEFORE  WRITING. 

IF  ( lORO.GE.O. AND. lOOATAI IAN) .GE.O)  GO  TO  260 
IF  ( IORO.LT.O.ANO. lOOATAI IAN) .LT.O)  GO  TO  260 
IF  (lORO.GE.O)  GO  TO  270 
GO  TO  290 

equal  identifiers  found  by  subtraction 
260  continue 

IF  (IORO-IOOATA( IAN) ) 270.310.290 

DATA  SET  TO  BE  MODIFIED  IS  NOT  IN  DATA  BASE.  DO  NOT  CONSIDER 
INPUT  DATA  SET  FURTHER. 

270  CONTINUE 

CALL  ERROR  (15) 

I COUNT- 1 COUNT* 1 
GO  TO  190 

280  continue 

290  CONTINUE 

HAVE  ALL  data  SETS  FROM  THE  OLD  DATA  BASE  AND  ALL  INPUT  DATA 
SETS  BEEN  PROCESSED 

IF  ( ICOUNT.GT.NWORO.ANO. lENOOLD.EQ, I ) GO  TO  H80 

HAVE  ALL  data  SETS  FROM  OLD  DATA  BASE  BEEN  READ 
IF  ( lENDOLD.EQ. 1 ) GO  TO  190 

WRITE  the  data  set  from  THE  OLD  DATA  BASE  ON  LOGICAL  UNIT  INEW 
N«rOOATA(l ) 

WRITE  (INEW)  N. ( lODATA(L) .L»2,N) 

GO  TO  160 

WRITE  THE  INPUT  DATA  SET  ON  LOGICAL  UNIT  INEW 
300  CONTINUE 

N-ITAPE(L1ST0R0( ICOUNT) . 1 ) 

WRITE  (INEW)  N. ( ITAPE(LIST0R0( ICOUNT) .L) .L-2.N) 

ICOUNT- 1 COUNT* I 
GO  TO  190 

modify  the  data  set  from  the  old  data  base  as  indicated  by  the 

INPUT  DATA  BASE  ('♦60) 

DECODE  data  item  LENGTH  A,vU  LOCATION  DATA  FOR  DATA  SET  FROM 
OLD  data  base  (320) 

310  continue 

OO  320  K-I.5 
DO  320  L*1 .“ 

<L»()<-I  ) »'**L 

LEN-SH1FT( IOOATAIK*! ) . (L-I )*15) .AN0.MASK(6) 

LOC-SHIFT( IOOATA(K*t ) .6*(L-1 )*I5) .AN0.MASK(9) 

LENL0C( 1 .KL)-SHIFT(LEN.S) 

LENL0C(2.KL)-SHIFT(L0C.9) 
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320  CONTINUE 

C DECODE  data  ITEM  LENGTH  AND  LOCATION  DATA  FOR  INPUT  DATA  SET 

C (3301 

DO  330  K»1 ,5 
DO  330  L*l .4 
KL*(K-1  ) •‘♦■►L 

LEN»SHIFT( ITAPE(LIST0RD( I COUNT) .K>I).tL-I)»15) .AND. MASK (6) 
LOC*SHIFT(  ITAPE(LIST0RD(  I COUNT)  .K-f  I ) ,6-ML-l  ) • 15)  .AND.  MASK  (9) 

LELO(  1 ,KL)=*SHIFT(LEN.6) 

LEL0(2.KL)=SHIFT(L0C.9) 

330  CONTINUE 

DELETE  OR  MODIFY  K-TH  DATA  ITEM  IF  NECESSARY.  ACCESSION  NUMBER 
AND  AD  NUMBER  (IF  NO  ACCESSION  NUMBER)  ARE  EXCLUDED  (^‘+0) 

DO  H40  K»2,20 

IF  (K.EQ.2.AND.LEL0(  1 . 1 ) .EQ.O)  GO  TO  4*+0 
IF  (LELO(  1 ,K)  .EQ.O)  GO  TO  ‘+‘+0 

IF  ( ITAPE(LISTORD( ICOUNT) ,LEL0(2,K) ) .EQ. 1L-)  LEL0(1.K)*0 
I NCR*LELO ( 1 . K ) -LENLOC ( 1 . K ) 

IF  ( INCR.EQ.O)  GO  TO  >+20 
N*N-*-INCR 

C FIND  LOCATION  OF  FIRST  WORD  OF  FIRST  REPRESENTED  DATA  ITEM 

C AFTER  K-TH  DATA  ITEM 

M»0 

3M0  CONTINUE 
,M*M>1 

lNITlAL»LENL0C(2,K-t-M) 

IF  1 INITIAL. EQ.O. AND. K+M.LE. 20)  GO  TO  340 
IF  (Ki-M.GT.20)  GO  TO  380 
LA3T»I0DATA(  1 ) 

IF  ( INCR.LT.O)  go  to  360 

c incr.gt.o,  move  data  items  following  data  item  to  be  added  or 

C MODIFIED  TO  MAKE  APPROPRIATE  STORAGE  AVAILABLE 

DO  350  L-INITIAL.LAST 

IOOATA(LASTi-INlTIALi-INCR-L)  = IODATA(LASTi-INITIAL-L) 

350  CONTINUE 
GO  TO  380 

C INCR.LT.O.  MOVE  DATA  ITEMS  FOLLOWING  DATA  ITEM  TO  BE  MODIFIED 

C TO  REMOVE  UNNEEDED  STORAGE 

360  CONTINUE 

DO  370  L-INITIAL.LAST 
IODATA(Li-INCR)-IODATA(L) 

370  CONTINUE 
380  CONTINUE 

C ARRANGEMENT  OF  DATA  ITEMS  IN  lOOATA  TO  ACCOMMAOATE  ADDITION  OF 

C OR  MODIFICATION  TO  K-TH  DATA  ITEM  IS  COMPLETE 

LENLOC ( 1 .K)»LELO( I ,K) 

IF  (LENL0C(2.K) .NE.O)  GO  TO  400 

C DATA  ITEM  IS  BEING  ADDED  WHERE  NONE  PREVIOUSLY  EXISTED.  SET 

C LOCATION  OF  NEWLY  ADDED  DATA  ITEM  APPROPR I ATELY 

KM-K-1 
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CO  390  ft  .KM 

IF  (LENLOCI 1 .LI .NE.O)  LENL0C(2.K)«LENL0C(2.L) *LENL0CM .L) 

390  CONTINUE 

C INCR.NE.O.  LOCATIONS  OF  ALL  DATA  items  FOLLOWING  MODIFIED  DATA 

C ITEM  MUST  BE  ADJUSTED 

MOO  CONTINUE 

IF  (LEL0( I .K) .EO.O)  LENL0C(2.K)-0 
KP»Kt1 

00  MIO  L-KP.20 

IF  (LENL0C(2.L) .NE.OI  LENL0C(2.L)»LENL0C(2.L)tINCR 
Mio  CONTINUE 

REPLACE  data  item  from  OLD  DATA  BASE  WITH  DATA  ITEM  FROM  INPUT 
DATA  SET 
M20  CONTINUE 

LAST-LEL0( 1 ,K) 

IF  (LAST. EQ. 01  GO  TO  MMO 

00  M30  L-1 .LAST 

IC0ATA(LENL0C(2.K)*L-1 ) • I TAPE (L ISTORD ( ICOUNTl .LELO ( 2 . K ) +L- 1 I 
M30  CONTINUE 
MMO  CONTINUE 

REENCODE  LENLOC 
DO  H60  K-1 .5 
LLL-0 

DO  M50  L»I .M 
KL«(K-1 )»M*L 

LEN-LENLOC ( I . KL 1 . AND . 77B 
LOC -LENLOC ( 2 . KL ) . AND . 7778 

LLL-LLL.OR.  ( SHIFT  (LEN,  9+ ( M-L  I • 1 5 1 . OR . SHI  FT  (LOC  . (M-D*I5)  ) 

M50  CONTINUE 

I0DATA(K*1 )«LLL 
M60  CONTINUE 

WRITE  (INEWl  N. ( lOOATA(K) .K-2.N) 

ICOUNT-ICOUNT*! 

GO  TO  160 

DELETE  THE  LAST  DATA  SET  READ 
H70  continue 

IDELETE( JCOUNTl-IOROER (L ISTORD ( ICOUNTl) 

1 COUNT- I COUNT* 1 
JCOUNT-JCOUNT*! 

GO  TO  160 


PROCESSING  OF  THE  LAST-READ  GROUP  OF  INPUT  DATA  SETS  IS  COMPLETE. 
READ  MORE  INPUT  DATA  SETS  IF  APPROPRIATE  OR  INSURE  NEW.  COMPLETED 
DATA  BASE  RESIDES  ON  CORRECT  LOGICAL  UNIT  FOR  CATALOGING. 


M80  continue 


IF  (OLDFILE.EQ. 1 ) REWIND  lOLO 
IF  (NEWFlLE.EQ.il  REWIND  INEW 
IF  (lOLD.EQ.l)  IOLD->< 

C ARE  THERE  MORE  INPUT  DATA  SETS  TO  BE  READ 

IF  ( INPEND.NE. 1 I GO  TO  20 
C IS  NEW  DATA  BASE  ON  tapE3 

IF  ( INEW.EQ.2)  GO  TO  510 

C COPY  TAPE4  (SCRATCH)  TO  TAPE2  (NEWFIL)  FOR  CATALOGING 

DO  500  L-1 . 100000 
READ  (INEW)  N, ( lOOATA(K) .K-2.N) 

IF  (EOF(INEWI)  510. HBO 
H90  CONTINUE 

WRITE  HOLD)  N, ( lOOATA(K) ,K-2,N) 

500  CONTINUE 

C NEW  DATA  9ASE  RESIDES  ON  TAPE2 

510  CONTINUE 

REWIND  INEW 
rewind  I OLD 
C 

520  FORMAT  (315) 

530  FORMAT  ( IHI ) 

5‘*0  format  (/56H  THIS  DATA  SET  MUST  BE  CORRECTED  BEFORE  IT  WILL  MODIFY 
1 T.35HHE  DATA  BASE  IN  THE  MANNER  DESIRED./) 

550  format  (1H1.6H  ,32H  INPUT  DATA  SET  EXCEEDS  60  WORDS) 

END 
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subroutine  decode  ( IACTION.LENLOC) 


subroutine  decode  reads  one  input  data  set  every  time  it  is  called 

BY  PROGRAM  ADM.  CAROS  ARE  READ  UNDER  AN  BOR  I FORMAT  AND  EXAMINED 

character  by  character  to  determine  which  data  item  is  being 
processed,  its  contents  and  length,  data  items  are  identified  by 

TWO-CHARACTER  COOES  WHICH  APPEAR  ON  THE  CARDS  AS»XY»  WHERE  XY 
REPRESENTS  ONE  OF  THE  ITEMS  IN  ARRAY  NAME.  ERRORS  IN  THE  PLACEMENT 
OR  CONTENT  OF  INFORMATION  ON  THE  CARDS  ARE  CHECKED  FOR  AND  NOTED 
BY  THE  program  as  specified  BY  THE  COOING. 


DIMENSION  lOATAiaOQI.  LENLOC (B .20 1 . NAMEiaO).  IBLANKO).  JNFOdOO) 

COMMON  /A/  I BUFF. I CHAR (80) . I DENT. IPOS. I RUN. I STAR. IWORD.NCHK. ICHARP 
IR. INFO( 100) . ICNTCRD. lORO. lODATAI 100) . IPRINT 
COMMON  /B/  IFLAG. IMASKI 10) 

DATA  NAME/ 2RAN . 2RAD . 2RT I . 2RCN . 2RPA . 2RCA . 2RRN . 2RD0 . 2RDR . 2RRE . 2RRS . 2 
1 RCL . 2RSA . 2R0 I . BROS . 2RCM . BRFM . 2RKW . 2RAB/ 

DATA  IBLANK/9R  .8R  .7R  .6R  .5R 

l‘+P  .jR  .BR  .IR  / 

DATA  ICNTCRO/0/ 


initialize  parameters  FOR  NEW  INPUT  DATA  SET 
DO  10  I-I.IOO 
INFO( I )»JNFO( I )-0 

10  continue 

I BUFF-0 
ICHARPR-IR 
ICONT-0 
IDENT-0 
IFLAG-0 
IPOS-0 
IREPEAT-0 
I RUN-7 
ISTAR-0 
I WORD- 1 
NCHK-0 

DO  BO  I -I. 40 
LENLOCC I )-0 

20  continue 

c initialize  parameters  for  continuation  of  old  data  set 
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30  CONTINUE 
INtW-0 
I COL- I 

READ  530.  ( !CHAR( I ) , I-l .80) 

ICNTCRO-ICNTCRD*! 

WRITE  (3.760)  ICNTCRO. ( ICHAR( I ) . I-l .80) 

C DOES  THE  PREVIOUSLY  READ  CARO  8EGIN  A NEW  INPUT  DATA  SET 

IF  ( ICHAR( 1 ) .EQ. 1R- .AND. ICHARI3) .EQ. 1R»)  INEW-1 
IF  ( INEW.EQ.O)  GO  TO  '♦0 
IACTI0N-ICHAR(2) 

C HAS  END  OF  DATA  INDICATOR  BEEN  READ 

IF  ( INEW.EQ. 1 . AND. ICHAR(2) .EQ. IRE)  RETURN 

IF  ( 1CHAR(2) .NE. IRA. AND. I CHAR (2) .NE. IRO.ANO. ICHAR(2) .NE. IRM)  CALL 
1 ERROR  (8) 

'♦0  CONTINUE  ! 

IF  ( INEW.EQ. 1 .AND. ICONT.EQ. 1 ) CALL  ERROR  (1) 

IF  ( INEW.EQ.O. AND. ICONT.EQ. 0)  GO  TO  50 
GO  TO  60 

c A NEW  input  data  set  was  expected  but  not  found 

50  CONTINUE 

CALL  ERROR  (5) 

GO  TO  30 

C NEW  INPUT  DATA  SET  INDICATED  OR  OLD  ONE  CONTINUES  AS  EXPECTED 

60  CONTINUE 
ICONT-1 

IF  ( INEW.EQ. 1)  ICOL-3 

EXAMINE  CARD  CHARACTER  BY  CHARACTER.  IDENTIFYING  AND  BUILDING 
INPUT  DATA  ITEMS  (‘♦80) 

DO  ‘♦80  I-IC0L.72 
C TWO  SUCCESSIVE  BLANKS  TERMINATE  CURRENT  DATA  SET 

IF  (1CHARPR.EQ.IR  .AND. ICHAR( I ) .EQ. IR  ) ICONT-0 
IF  ( ICONT.EQ. 0)  GO  TO  90 

C CURRENT  INPUT  DATA  SET  NOT  YET  TERMINATED 

I TMARPOm T rUAD f I \ 

IF  ( ISTAR.EQ.O.AND. ICHAR( I ) .NE. 1R»)  GO  TO  130 
IF  ( ISTAR.EQ. 1 .AND. ICHAR( I ) .NE. 1R»)  GO  TO  70 
C TWO  SUCCESSIVE  • ARE  USED  TO  PLACE  AN  • IN  AN  INPUT  DATA  ITEM 

IF  ( ISTAR.EQ. 1 .AND. ICHARI I ) .EQ. 1R»)  GO  TO  130 
C HAS  FIRST  • OF  A PAIR  JUST  BEEN  ENCOUNTERED 

IF  ( ISTAR.EQ. 0. AND. ICHARI I ) .EQ. IR»)  ISTAR-1 
IF  ( ISTAR.EQ. 3. AND. ICHARI 1 ) .NE.IR*)  GO  TO  80 
IF  ( ISTAR.EQ. 3. AND. ICHARI I ) .EQ. 1R»)  CALL  ERROR  (3) 

C HAS  two-character  IDENTIFIER  BEEN  DEFINED 

IF  ( ISTAR.EQ.'^.  AND.  ICHARI  I ) .EQ.  IR»)  ISTAR-0 
IF  I ISTAR.EQ.‘^.ANO.  ICHARI  I ) .NE.  IR*  ) CALL  ERROR  (6) 

GO  TO  ‘♦80 

C END  OF  DATA  ASSOCIATED  WITH  CURRENT  TWO-CHARACTER  IDENTIFIER 

70  continue 
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IF  IIPOS.GT.O)  I BUFF* I BUFF. OR. I blank ( 1 PCS) 

INFO( IWCRD)-IBUFF 

IF  1 INFOl 1 ) .EQ.O.ANO. lOENT.NE.O)  CALL  ERROR  (4) 

IF  ( IPOS. EQ.O.ANO. IOENT.NE.O)  IWORO* IWORD- I 
ISTAR-ISTaR*! 

GO  TO  IHO 

C ADD  A character  to  the  TWO  CHARACTER  IDENTIFIER 

90  CONTINUE 

IDENT-IDENT. OR. SHIFT! ICHAR( I ) . (3-ISTAR)*6) 

!STAR*ISTAR*I 
GO  TO  '+00 

C END  OF  INPUT  data  set  INDICATED.  IF  MORE  DATA  FOLLOWS  ON 

C PRESENT  CARD  THERE  IS  AN  ERROR  MOO) 

90  continue 

IF  ( I .EQ.7B)  GO  TO  110 
IP*I*1 

DO  ICO  I 1«IP,72 

IF  ( ICHAR( I ! ) .EQ. IR  ) GO  TO  100 
CALL  ERROR  (2) 

GO  TO  lie 

100  continue 

c determine  if  ibuff  contains  characters  which  belong  with  the 

C last  data  item  (THE  CHARACTER  IN  IBUFF  FOR  IPOS«l  IS  A BLANK) 

I I 0 CONT I NUE 

IF  ( IPOS.NE.O.AND. 'POS.NE. I ) GO  TO  120 
I WORD- 1 WORD- 1 
GO  TO  I'+O 

C BLANK  FILL  PEMA . NCER  OF  LAST  WORD  OF  LAST  INPUT  DATA  ITEM 

C ASSOCIATED  WITI-  input  DATA  SET  BEING  PROCESSED 

120  CONTINUE 

I BUFF -I  BUFF .OR.  I BLANK! IPOS) 

INFO! IWORO) -IBUFF 
GO  TO  140 

C STORE  ICHARM)  IN  IBUFF 

130  CONTINUE 
ISTAR-O 
IPOS- IPOS* 1 

I BUFF- IBUFF. OR. SHI  FT! ICHAR! I ) , ! IO-IPOS)»6) 

IF  ! IPOS.NE. 10)  GO  TO  400 

c 10  characters  have  been  stored  in  ibuff 

INFO! IWORD) -IBUFF 

I0UFF-O 

IPOS-0 

I WORD -1  WORD *1 
GO  TO  400 
C 

C A DATA  ITEM  HAS  BEEN  COMPLETED 

C 

140  continue 

C IOENT-0  the  first  TWO-CHARACTER  IDENTIFIER  HAS  BEEN  FOUND 
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IF  ( IDENT.EQ.O)  go  to  80 

C DOES  PROGRAM  RECOGNIZE  TWO-CHARACTER  IDENTIFIER  (160) 

DO  150  J-1 . 19 

lAN-IOOATAO)  .AND.  SHIFT  (MASK  (9)  .39) 

IF  ( IDENT.EQ.NAMEU)  ) GO  TO  160 

150  continue 

c program  does  not  recognize  two-character  identifier 

CALL  ERROR  (10) 

GO  TO  460 

160  continue 

C CHECK  character  spacing  and  insert  or  delete  blanks  as 

C RE(3UIRED  (840) 

JPOS«0 

lCTPR-18 

DO  840  K-1 . I WORD 
DO  830  L»1 , 10 
ICT-INFOIK) .and. IMASK(L) 

ICT«SHIFT( ICT,L»6) 

IF  ( ICT.GT.OB. AND. ICT.LE.44B.OR. ICT.EQ.55B)  GO  TO  190 
C ICT  IS  NOT  A LETTER.  NUMERAL.  OR  BLANK 

IPB-1 

IF  ( ICT.EQ.51B.0R. ICT.EQ.61B)  IPB— 1 
IF  ( ICT.GE.45B.AN0. ICT.LE.50B.OR. ICT.EQ.54B)  IPB-0 
IF  (IPB)  170.190.180 
170  continue 

C CHECK  TO  SEE  THAT  A BLANK  PRECEDES  ( OR  I 

IF  ( ICTPR.EQ.55B)  GO  TO  880 
JPOS- JPOS* 1 

ISHIFT-( IO-MOD(JPOS. 10) )»6 
JWORO»( JPOS-l ) / IQ+l 

JNFO(JWORD)*JNFO(JWORD) . OR . SHI  FT ( 55B . ISH IFT ) 

ICTPR-55B 
GO  TO  880 

C CHECK  TO  SEE  that  NO  BLANK  PRECEDES  ;.$.! 

C CHANGE  TO  - (SINCE  COLONS  ARE  LATER  TREATED  AS  BLANKS) 

180  continue 

IF  (ICT.EQ.O)  ICT»46B 

IF  ( ICTPR.NE.55B.0R. JPOS.EQ.O)  GO  TO  880 

ISHlFT-( 10-MOD( JPOS. 10) ) *6 

JWORO- ( JPOS- ! )/ 10*1 

JNFO(JWORD)-JNFO(JWORO)  . AND  . SHIFT  (MASK  (-54  ) . ISHIFT) 
jPOS-JPOS-1 
GO  TO  880 
190  continue 

c ICT  IS  A letter,  numeral,  or  blank 

IF  ( ICTPR.GT.OB. AND. ICTPR.LE.44B.OR. ICTPR.EQ.55B)  GO  TO  880 
IPB-1 

IF  ( ICTPR.EQ.51B.0R. ICTPR.EQ.6IB)  IPB— 1 

IF  ( ICTPR.GE.45B. AND. ICTPR.LE.50B.0R. ICTPR.EQ.54B)  lPB-0 

IF  (IPB)  800.800.810 
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CONTINUE 

CHECK  TO  SEE  that  NO  0LANK  FOLLOWS  (.I.*. OR  •- 
IF  (ICT.EQ.55B)  00  TO  230 
30  TO  220 
CONTINUE 

CHECK  TO  SEE  that  a RLANK  FOLLOWS  ).l :.S.  OR  : 

IF  ( ICT.EQ.55B)  CO  TO  220 
^P0S«JP0S*1 

ISHIFT.i lO-MOOlJPOS. 10) )‘6 
^WORD*( JPOS-1 1/10*1 

JNFOl JWORD)-JNFO( JWORD) .0R.SHIFT(55B. I SHI  FT) 

continue 

STORE  character  IN  JNFO 
IF  (JPOS.EQ.O.anO. ICT.EQ.55B)  GO  TO  230 
JP0S»JP0S*1 

ish:ft«( io-moo( jpos. lO) ) »6 
JW0R0»( JPOS-1 ) / 10*1 

JNFOl  JWORO)  » JNFO (..IWORD)  . OR  . SHIFT  I ICT  . ISHIFT ) 

ICTPR-ICT 
CONTINUE 

continue 

BLANK  FIIl  last  WORD  OF  INPUT  DATA  ITEM 
I F 1 MOO  I JPOS . 1 0 I . NE . 0 ) JNFO I JWORO ) » JNFO 1 JWORD ) . OR . I BLANK  1 MOO  1 JPOS , 
110)) 

C INSURE  AT  LEAST  TWO  BLANKS  TERMINATE  INPUT  DATA  ITEM 

1CT»JNF0( JWORD) .AND. SHI  FT  I MASK! 12) , 12) 

IF  1 ICT.EQ.2R  ) GO  TO  250 
JWORO*JWORO*1 
JNFO 1 JWORC ) - 1 OH 
30  TO  260 

C ENTRY  terminated  BY  TWO  BLANKS  WITHOUT  ADDING  A WORD  OF 

C BLANKS.  HOWEVER  JNFO (JWORD)  MAY  BE  ALL  BLANKS  AND  UNNEEDED. 

250  continue 

I F 1 JWORO . EQ . 1 ) GO  TO  260 
ICT-JNFOt JWORO- 1 ) . ANO.SHIFTlMASKl 12) , 12) 

IF  I 1CT.NE.2R  ) GO  TO  260 
JNFO ( JWORO ) - I NFO I JWORO ) »0 
^WORO-JWORD-I 
GO  TO  250 

input  DATA  ITEM  READY  TO  BE  STORED  IN  IDATA  ARRAY  WITH  LENGTH 
AND  LOCATION  INFORMATION  STORED  IN  LENLOC  ARRAY  (FOR  TWO- 
CHARACTER  IDENTIFIERS  APPEARING  MORE  THAN  ONCE  IN  AN  INPUT 
DATA  SET.  THE  LENLOC  ARRAY  CONTAINS  INFORMATION  ONLY  ABOUT  THE 

last  appearance.) 

260  CONTINUE 

IF  (LENCOCI I . J) .NE.OI  IREPEAT-IREPEAT*LENLOC( 1 . J) 

LENLOC ( I .J) -JWORO 
LENL0C(2.J)-IRuN 
I SUM- I RUN* JWORO- I 
DO  270  K- 1 RUN. I SUM 


200 


210 


220 


230 

2'*0 
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I DA  T A ( K ) -vJNFO  ( K»  1 - I RUN ) 

270  CONTINUE 

IRUN-IRUN+JWORD 

C TEST  FORMAT  OF  ACCESSION  NUMBER 

IF  ( IDENT.NE.NAMEI 1 n GO  TO  280 
NCHK-1 

280  CONTINUE 

PERFORM  TESTS  ON  FORMAT  OF  INPUT  DATA  ITEM  (CURRENTLY  NO  TESTS 
ARE  PERFORMED.  BUT  AN  AREA  FOR  SUCH  TESTS  HAS  BEEN  DEFINED  FOR 
EVERY  INPUT  DATA  ITEM)  (H60) 

TEST  FORMAT  OF  AO  NUMBER 
IF  (!DENT.NE.NAME(2) ) GO  TO  290 
NCHK-I 

290  CONTINUE 

C TEST  FORMAT  OF  TITLE 

IF  ( I0ENT.NE.NAME(3) ) GO  TO  300 
300  CONTINUE 

C TEST  FORMAT  OF  COPY  NUMBER 

IF  ( IOENT.NE.NAME('+)  ) GO  TO  310 
310  CONTINUE 

C TEST  format  of  PERSONAL  AUTHOR 

IF  ( IDENT.NE.NAMEO)  ) GO  TO  320 
320  continue 

C TEST  FORMAT  OF  CORPORATE  AUTHOR 

IF  ( IDENT.NE.NAME(6) ) GO  TO  330 
330  CONTINUE 

C TEST  FORMAT  OF  REPORT  NUMBER 

IF  ( 1DENT.NE.NAMEI7) ) GO  TO  3H0 
3‘*0  CONTINUE 

C TEST  FORMAT  OF  DOCUMENT  DATE 

IF  ( lOENT.NE.NAME(B) ) GO  TO  350 
350  CONTINUE 

C TEST  FORMAT  OF  DATE  RECEIVED 

IF  ( IDENT.NE.NAME(9l ) GO  TO  360 
360  CONTINUE 

C TEST  FORMAT  .OF  REQUESTOR 

370  CONTINUE 

IF  ( IDENT.NE.NAME( 10) ) GO  TO  370 

C TEST  FORMAT  OF  REQUESTING  STUDY 

IF  ( IDENT .NE.NAMEl 1 1 > ) GO  TO  380 
380  CONTINUE 

C TEST  FORMAT  OF  CLASSIFICATION 

IF  ( IDENT. NE.NAME(12) ) GO  TO  390 
390  CONTINUE 

C TEST  FORMAT  OF  SPECIAL  ACCESS 

IF  ( IDENT. NE.NAMEl  13)  ) GO  TO  '♦00 
400  CONTINUE 

C TEST  FORMAT  OF  DOWNGRADING  INFORMATION 
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ir  ( 1 DENT, NE. NAME!  mi  1 GO  TO  '♦10 

'♦10  continue 

C TEST  rORMAT  OF  DOCUMENT  STATUS 

IF  ( I DENT.  NE.  NAME!  151)  GO  TO  '♦20 
'♦20  CONTINUE 

C TEST  FORMAT  OF  COMMENTS 

IF  ( IDENT.NE.NAMEC  16)  1 GO  TO  '♦30 
'♦30  continue 

0 TEST  FORMAT  OF  FORMAT 

IF  ( lOENT.NE.NAMEl  17)  1 GO  TO  '♦'♦0 
'♦'♦0  CONTINUE 

C TEST  FORMAT  OF  KEY  WORDS 

IF  ( lOENT.NE.NAMEl  181  ) GO  TO  '♦SO 
'♦50  continue 

C TEST  FORMAT  OF  ABSTRACT 

IF  1 lOENT.NE.NAMEl  19)  ) GO  TO  '♦60 

'♦60  continue 

C INITIALIZATION  REQUIRED  FOR  PROCESSING  NEXT  INPUT  DATA  ITEM 

IDENT.O 

DO  '♦70  J»l,JWORD 
INFO! J)»JNFO( J)»0 
'♦70  continue 
I BUFF -0 
IP0S«0 
I WORD* 1 

ISTAR-2  last  processed  INPUT  DATA  ITEM  TERMINATED  BY  FINDING 
NEXT  TWO  CHARACTER  IDENTIFIER 
IF  1 ISTAR.EQ.21  GO  TO  80 

HAS  END  OF  INPUT  DATA  SET  BEEN  FOUND 
IF  (ICONT.EQ.O)  GO  TO  '♦90 

'♦80  continue 

READ  another  card  BELONGING  TO  THIS  INPUT  DATA  SET 
GO  TO  30 
'♦90  continue 

ALL  INPUT  DATA  ITEMS  IN  INPUT  DATA  SET  HAVE  BEEN  PROCESSED 

IF  (nCHK.EQ.O)  call  error  (7) 

C DELETE  ERRONEOUS,  REPEATED  INPUT  DATA  ITEMS  FROM  IDATA  ARRAY 

C TO  FORM  lODATA  ARRAY.  ADJUST  LENLOC  ARRAY.  (510) 

lODATAl 1 1 -IRUN-IREPEAT-l 
I RUN-7 

DO  510  K-1 ,20 
L0C-LENL0C(2,K) 

IF  (LOC.EQ.O)  go  to  510 
LENL0C(2,K)-IRUN 
IWORD-LENLOCI 1 ,K) 

I SUM- 1 RUN* I WORD- 1 
DO  500  L- 1 RUN, I SUM 
IODATAIL) -IDaTA(LOC*L-IRUN) 
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500  CONTINUE 

1 PUN- 1 RUN* I WORD 
510  continue 

C IS  PAGE/ INPUT  DATA  SET  PRINTOUT  TO  8E  EXERCISED 

IF  ( IPRINT.EQ.O)  RETURN 

PRINT  DOCUMENT  INFORMATION  INPUT  DATA  ITEM  8Y  INPUT  DATA  ITEM 
PRINT  5>*0 

PRINT  550.  lACTION 
C PRINT  ACCESSION  number 

l0C-LENL0C(2. I ) 

isum«loc*lenloc(  I . n-i 

IF  (LOC.EQ.O)  PRINT  560 

IF  (LOC.GT.O)  print  560,  ( lODATAlK) .X-LOC. ISUM) 

C PRINT  AD  NUMBER 

L0C-LENL0C(2,2) 

ISUM-L0C*LENL0C( I ,2)-1 
IF  (LOC.EQ.O)  PRINT  570 

IF  (LOC.GT.O)  PRINT  570.  ( I ODATA ( K ) .K-LOC . ISUM) 

C PRINT  TITLE 

L0C-LENL0C(2.3) 

ISUM-L0C*LENL0C( 1 .3) -I 
IF  (LOC.EQ.O)  PRINT  580 

IF  (LOC.GT.O)  PRINT  580.  ( I ODATA (K ) .K-LOC . I SUM) 

^ C PRINT  COPY  number 

LOC-LENLOCIB.**) 

’ ISUM-L0C*LENL0C(  I .‘41-1 

IF  (LOC.EQ.O)  PRINT  600 

IF  (LOC.GT.O)  PRINT  600.  ( I ODATA ( K ) .X-LOC . ISUM ) 

C PRINT  PERSONAL  AUTHOR 

L0C-LENL0C(2.5) 

ISUM«LOC*LENLOC( I .5) -I 
IF  (LOC.EQ.O)  PRINT  610 

IF  (LOC.GT.O)  PRINT  610.  ( I ODATA (X ) .X-LOC . ISUM) 

C PRINT  CORPORATE  AUTHOR 

LOC-LENLOC(2.6) 

ISUM-LOC*LENLOC( I .6) -I 
IF  (LOC.EQ.O)  PRINT  620 

IF  (LOC.GT.O)  PRINT  620.  ( I ODATA (X ) .X-LOC . ISUM ) 

C PRINT  REPORT  NUMBER 

L0C-LENL0C(2.7) 

ISUM-LOC+LENLOCI I .7) -I 
IF  (LOC.EQ.O)  PRINT  630 

IF  (LOC.GT.O)  PRINT  630.  ( I ODATA ( X ) .X-LOC . I SUM) 

C PRINT  DOCUMENT  DATE 

L0C-LENL0C(2.8) 

ISUM-L0C*LENL0C( I .8) -I 
IF  (LOC.EQ.O)  PRINT  6*40 

IF  (I.Dr.OT.O)  PRINT  6H0.  ( lODATA  (X ) .X-LOC . ISUM) 


C PRINT  DATE  RECEIVED 

L0C«l.ENL0C(a,9) 

ISUM-L0C*LENL0C( 1 .91-1 
IP  (LOC.EQ.O)  PRINT  650 

IF  (LOC.GT.Ol  PRINT  650.  I lODATA(K) .K»LOC, ISUM) 
C PRINT  REQUESTOR 

LOC-LENCOCia. 10) 

ISUM-LOC*LENLOC( I . I0)-I 
IF  (LOC.EQ.01  PRINT  660 

IF  (LOC.GT.O)  PRINT  660,  ( I ODATA (K ) . K-LOC . I SUM ) 
C PRINT  REQUESTING  STUDY 

LOC-LENLOC12. 1 I 1 
ISUM-LOC*LENLOC( I , I I :-i 
IF  (LOC.EQ.O)  PRINT  670 

IF  (LOC.GT.Ol  PRINT  670.  ( I ODATA ( K ) . K»LOC . I SUM) 
C PRINT  CLASSIFICATION 

L0C«LENL0C(2. 121 
ISUM-LOC*l£NLOC( 1 .121-1 
IF  (LOC.EQ.O)  PRINT  600 

IF  (LOC.GT.O)  PRINT  680.  ( lODATA ( K ). K-LOC . ISUM ) 
C PRINT  special  access 

L0C-LENL0CI2. 131 
ISUM-L0C*LENL0C( 1 .131-1 
IF  (LOC.EQ.O)  PRINT  690 

IF  (LOC.GT.O)  PRINT  690.  ( IODATA ( K ) .K-LOC . ISUM) 
C PRINT  DOUNGRADING  INFORMATION 

L0C-LENL0C(2.  I**) 

isum-loc*lEnloc(  1 . im-1 

IF  (LOC.EQ.O)  PRINT  700 

IF  (LOC.GT.O)  PRINT  700.  ( I ODATA (K ) .K-LOC . I SUM ) 
C PRINT  DOCUMENT  STATUS 

L0C-LENL0C(2. 15) 

ISUM-L0C*LENL0C( 1 .151-1 
IF  (LOC.EQ.O)  PRINT  710 

IF  (LOC.GT.O)  PRINT  710.  ( I ODATA (K ) . K-LOC . I SUM ) 
C PRINT  COMMENTS 

L0C-LENL0CI2. 16) 

ISUM-L0C+LENL0C( 1.161-1 
IF  (LOC.EQ.O)  PRINT  700 

IF  (LOC.GT.O)  PRINT  700.  ( I ODATA (K 1 .K-LOC . I SUM) 
C PRINT  FORMAT 

LOC-LENLOC(0. 17) 

ISUM-l0C*LENL0C( 1 . 17)-I 
IF  (LOC.EQ.O)  PRINT  730 

IF  (LOC.GT.O)  PRINT  730.  ( lOOATA (K) .K-LOC . ISUM) 
C PRINT  KEY  WORDS 

L0C-LENL0C(2. 18) 

1 SUM-LOC  *LENL0C ( 1 . 1 8 ) - 1 
IF  (LOC.EQ.O)  PRINT  740 

IF  (LOC.GT.Ol  PRINT  740.  ( IODATA (K ) .K-LOC . I SUM ) 
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PRINT  abstract 
L0C-LENL0CI2. 191 
1SUMS-ISUM-L0C*LENL0C(1 .191-1 
IF  (LOC.EQ.Ol  PRINT  750 
IF  ( ISUM-L0C.GT.81  ISUM-L0C*7 

IF  (LOC.GT.Ol  PRINT  750.  ( ICOATA ( K 1 .K«LOC . I SUMl 

IF  ( ISUMS-L0C.LE.81  GO  TO  520 

LOC-LOC+9 

PRINT  590.  ( lOOATAIKl .K-LOC. ISUMSl 
520  CONTINUE 
RETURN 

530  format  (BOR II 

540  format  (IHIl 

550  FORMAT  (2H  •.RI.IH»/1 

560  format  (/5H  »AN».4X. I7HACCESSI0N  NUMBER . 5X . BA  1 0 1 
570  FORMAT  (/5H  ‘AO* . I IX . I OHAO  NUMBER . 5X . BA  1 0 1 
580  FORMAT  (/5H  »T I • . 1 5X . 6HT I TLE . 5X . BA  1 0 . 5X . ( /3I X . 9A 1 0 1 1 
590  FORMAT  (31X.9AI01 

600  format  (/5H  ‘CN’.OX. 12HC0PY  NUMBER . 5X . BA  1 0 1 
610  FORMAT  (/5H  •PA«.5X. 16HPERS0NAL  AUTHOR .5X .BA  1 0 1 
620  FORMAT  (/5H  ‘CA* . 4X . 1 7HC0RP0RATE  AUTHOR. 5X . BA  1 0 . 5X . ( / 31 X . BA  1 0 1 1 
630  FORMAT  (/5H  »RN» .7X . 14HREP0RT  NUMBER . 5X . BA  1 0 1 
640  FORMAT  (/5H  •DO* .7X . 14H00CUMENT  DATE .5X .BA 1 0 1 
650  FORMAT  (/5H  ‘DR* .7X . 14H0ATE  RECE I VED.5X . BA  1 0 1 
660  FORMAT  (/5H  »RE» , I IX. 10HREQUESTOR.5X.8AI01 
670  FORMAT  (/5H  »RS» .4X . 17HREQUEST ING  STUDY . 5X . BA  1 0 1 
680  FORMAT  (/5H  ’CL^.BX. 15HCLASSIFICATION.5X.8A101 
690  FORMAT  (/5H  ‘SA* .6X. 15HSPECI AL  ACCESS .5X .8A 1 0 1 
700  FORMAT  (/5H  «D I • .4X . 17H00WNGRADING  INF0.5X .8A 1 0 1 
710  FORMAT  (/5H  ‘DS* .5X . 16H00CUMENT  STATUS .5X . 8A 1 0 1 
720  FORMAT  (/5H  »CM» . 12X .9HC0MMENTS .5X .BA 1 0 1 
730  FORMAT  (/5H  ‘FM* . I4X .7HF0RMAT .5X . 8A 1 0 1 
740  FORMAT  (/5H  ‘KW* . I IX. lOHKEY  WORDS .5X . 8A 1 0 1 
750  FORMAT  (/5H  • A8» . I2X .9HA8STRACT .5X . 8A 1 0 1 
760  FORMAT  (5H  CARO . 14 .5X .80R1 1 
END 
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SUBROUTINE  ERROR  (N) 


SUBROUTINE  ERROR  HANDLES  THE  OUTPUT  OF  ERROR  MESSAGES  AND  THE 

setting  of  program  parameters  required  for  proper  continuation 

OF  THE  REMAINDER  OF  THE  PROGRAM.  ALL  OUTPUT  FROM  SUBROUTINE  ERROR 
IS  ON  TAPES. 


COMMON  /A/  IBUFF. ICHARIBOl . IDENT, IPOS. IRUN. ISTAR. IWORD.NCHK. ICHARP 
IR. INFO( 100) . ICNTCRD, lORD, lODATAt 100) . IPflINT 
COMMON  /B/  IFLAG. IMASK( 10) 

IFLAG-1 
PRINT  3'*0.  N 

GO  TO  (10.20,30.40.50.60,70.30.90.100.130.130,140.150.180).  N 

10  CONTINUE 

WRITE  (3.210)  ICNTCRD 
I BUFF -0 
ICHARPR-IR 
IDENT-0 
IPOS-0 
I RUN-7 
ISTAR-0 
I WORD -1 
NCHK-0 
IFLAG-0 
RETURN 
20  CONTINUE 

WRITE  (3.220)  ICNTCRD 
RETURN 
30  CONTINUE 
invalid- I 

ISTAR-0 
WRITE  (3.230) 

RETURN 
40  CONTINUE 

WRITE  (3.240)  ICNTCRD 
RET'JRN 
50  CONTINUE 

WRITE  (3,250)  ICNTCRD 
RETURN 
60  CONTINUE 
ISTAR-0 
INVALIO-1 

WRITE  (3.260)  ICNTCRD 
RETURN 

.P  70  continue 
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r 


WRITE  (3.870) 

RETURN 
80  CONTINUE 
RETURN 
90  CONTINUE 
RETURN 
100  CONTINUE 

IE  ( invalid. EQ.O)  GO  TO  110 

INVALID-0  < 

RETURN 
1 10  CONTINUE 

WRITE  (3.880)  lOENT, ( INEO( I ) . I-l . IWORD) 

RETURN 

180  continue 

RETURN 
130  continue 
RETURN 
mo  CONTINUE 

WRITE  (3.890)  lORD 
RETURN 
150  CONTINUE 

DO  160  I-I  . 10 

ICT-I0RD.AN0.SHIET(MASK(6) . ( 1 l-I  ) *6) 

IE  (ICT.EQ.O)  IORO-IORD.OR.SHIET( IL  .(11-I)*6) 

160  CONTINUE 

IAN-I0DATA(8) . AND.SHIET(MASK(9) .54) 

1AN-SH1ET( IAN. 15) 

IE  ( IAN. EQ.O)  GO  TO  170 
WRITE  (3.300)  lORD 
RETURN 
170  CONTINUE 

WRITE  (3.310)  lORD 
WRITE  (3.310)  lORD 
RETURN 
180  CONTINUE 

DO  190  I -1.10 

ICT-IORD. AND.SHIET(MASK(6) . ( 1 l-I )*6) 

IE  (ICT.EQ.O)  IORD-IORD.OR.SHIET( IL  .(11-I)*6) 

190  CONTINUE 

IAN-I0DATA(8) . AN0.SHIET(MASK(9) .54) 

IAN-SHIET( I AN. 15) 

IE  (IAN. EQ.O)  GO  TO  800 
WRITE  (3.380)  lORO 
RETURN 
800  CONTINUE 

WRITE  (3.330)  lORO 
RETURN 
C 

'■  810  EORMAT  (/5H  CARO.I4.44H  BEGINS  A NEW  DATA  SET  EOLLOWING  AN  IMPROPE 

' I 1R.88HLY  TERMINATED  DATA  SET/) 


i 
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220  FORMAT  (/5H  CARD . I >+ . '♦'♦H  CONTAINS  TWO  SUCCESSIVE  BLANK  COLUMNS  TOLL 
10.23HWED  BY  additional  DATA./S'+H  FOLLOWING  CAROS  WILL  BE  IGNORED  U 
2.33HNTIL  A NEW  DATA  SET  IS  INITIATED./) 

230  FORMAT  (/55H  ONE  CHARACTER  IDENTIFIERS  ARE  NOT  PERMITTED.  DATA  PRE 
1C.36HEDING  NEXT  VALID  IDENTIFIER  IGNORED.) 

2‘*0  FORMAT  (/5H  CARO.I'♦.4^H  CONTAINS  TWO  SUCCESSIVE  IDENTIFIERS.  THE  F 
1I.19HRST  ONE  IS  IGNORED./) 

250  FORMAT  (/5H  CARD.I4.H4H  IS  IGNORED  BECAUSE  IT  DOES  NOT  BEGIN  A NEW 
1 .9HDATA  SET. / ) 

260  format  (/5H  CARD.I4.44H  CONTAINS  AN  IMPROPERLY  TERMINATED  lOENTIFI 
IE.48HR.  DATA  PRECEDING  NEXT  VALID  IDENTIFIER  IGNORED./) 

2"’0  FORMAT  (/46H  DATA  SET  HAS  NO  ACCESSION  NUMBER  OR  AD  NUMBER/) 

280  FORMAT  (/2H  ».R2.IH».43H  IS  NOT  RECOGNIZED.  THE  FOLLOWING  DATA  CAN 
I .16HN0T  BE  PROCESSED/ ( lOX. BA  10) ) 

290  FORMAT  (/28H  ACCESSION  NUMBER/ AO  NUMBER  .AI0.56H  IS  CURRENTLY  IN  T 
IHE  DATA  BASE  AND  CAN  NOT  BE  DUPLICATED/) 

300  FORMAT  (/IBH  accession  NUMBER  .A10.31HIS  NOT  IN  DATA  BASE  AND  CAN 
INOT. 1 IH  BE  DELETED/ ) 

310  FORMAT  (IlH  AO  NUMBER  .A10.38HIS  NOT  IN  DATA  BASE  AND  CAN  NOT  BE  D 
1EL.4HETED/ ) 

320  FORMAT  (/IBH  ACCESSION  NUMBER  .A10.31HIS  NOT  IN  DATA  BASE  AND  CAN 
1NOT.I2H  BE  MODIFIED/) 

330  FORMAT  (/IlH  AD  NUMBER  .A10.37HIS  NOT  IN  DATA  BASE  AND  CAN  NOT  BE 
1M0,6H0IFIED/ ) 

340  FORMAT  (5H  • • • • . 1 2HERR0R  NUMBER . 1 3 .4H» • • • ) 

END 
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SUBROUTINE  SORT  ( N ,L I ST . I NADS) 


SUBROUTINE  SORT  ALPHANUMERICALLY  ORDERS  THE  ENTRIES  IN  THE  LIST 
ARRAY  (WITHOUT  ALTERING  ■’’HE  ORDER  OF  THE  ENTRIES)  BY  PLACING  IN 
INAOM)  the  subscript  J SUCH  THAT  L I ST  ( I NAD  ( I ) ) GIVES  THE  I-TH 
ALPHANUMERICALLY  SMALLEST  ELEMENT  OF  LIST.  THE  PROCEDURE  DEPENDS 
ON  IPOWER  MERGING  CYCLES.  IN  THE  FIRST  CYCLE  INDIVIDUAL  ENTRIES 
OF  list  are  merged  by  pairs  - 1 and  a.  3 AND  H,  ETC.  TO  FORM 
ORDERED  PAIRS.  IN  THE  SECOND  CYCLE  THE  FIRST  PAIR  IS  MERGED  WITH 
THE  SECOND,  THE  THIRD  WI'H  THE  FOURTH.  ETC.  TO  FORM  ORDERED  QUADS. 
THE  RESULT  OF  THE  IPOWER-TH  CYCLE  IS  A COMPLETELY  ORDERED  LIST 
APe.4'' . 


DIMENSION  LIST)  laS)  . INADSUaB),  INADUaB) 

determine  MINIMUM  POWER  OF  2 WHICH  IS  GREATER  THAN  OR  EQUAL  TO 
THE  NUMBER  OF  ENTRIES  TO  BE  ORDERED  IN  THE  LIST  ARRAY,  N 
LIMUP»1 
DO  10  1-1.7 
LIMUP-LIMUP*a 
IF  (limup.lt.n)  go  to  10 
I POWER- 1 
GO  TO  30 
10  CONTINUE 

initialize  INADS 
LiMUPH-I.IMUP/a 

ao  continue 

DO  30  I - 1 . L I MUP 
I NADS!  1 1 -I 
30  CONTINUE 

ORDER  LIST  ALPHANUMERICALLY  (150) 

DO  150  I -1. I POWER 

Na-a**(  :-i ) 

I IS— Na»a+i 

MERGE  BY  PAIRS  LIMUPH/N3  SUBGROUPS  OF  N3  MEMBERS  EACH 
DO  130  J-1 .LIMUPH.Na 

II  AND  la  KEEP  track  of  the  ELEMENTS  BEING  COMPARED  FROM  THE 
TWO  SUBGROUPS 

I i-i is-i is*Na»a 
la-ias-i i*N2 

IN' :iAL-I 1 
LAST-I2*Na-l 
C MERGE  A PAIR  OF  SUBGROUPS  (120) 

DO  120  K-INITIAL.LAST 
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the  cetermination  of  the  alphanumerically  smallest  of  two 

MEMBERS  OF  list  CAN  BE  MADE  8Y  SUBTRACTION  ONLY  WHEN  BOTH  ARE 
POSITIVE  OR  NEGATIVE  BECAUSE  THE  SIGN  BIT  (59)  IS  NOT  USED  AS 
A TRUE  SIGN  BIT,  BUT  RATHER  AS  PART  OF  THE  LEFTMOST 
alphanumeric  CHARACTER. 

IF  (LIST( INA0S( I I n .GE.O  AND.LIS'C !NAOS( IB) ) .GE.O)  GO  TO  40 
IF  (LIST( INADS( I 1 ) ) .LT.O.ANO.LlSTt INA0S( IB) ) .LT.O)  GO  TO  40 
IF  (LIST(  INADSd  1 ) ) .GE.O)  GO  TO  50 
GO  TO  70 
40  CONTINUE 

IF  (LIST( INA0S( I 1 ) )-LIST( INAOSI 12) ) ) 50,60.70 
LIST) I NADS ( I I ) ) .LT.LIST( I NADS ( IB) ) 

50  CONTINUE 

INAD(K)>INA0S( I I ) 

I l-I 1*1 

IF  ( I 1 .Ed. IBS)  GO  TO  00 
GO  TO  I BO 

LIST! I NADS) I 1 ) ) . EQ . L 1ST ( I NADS!  IB)  ) 

60  CONTINUE 
GO  TO  50 

LIST) INADS) I 1 ) ) .GT.LIST) INAOSI IB) ) 

70  CONTINUE 

INAO(K)> INADS) IB) 

IB-IB*1 

IF  ( IB. GT. LAST)  GO  TO  100 
GO  TO  IBO 
KP«K 

80  continue 

TAKEN  IN  ORDER 

II  SUBSET  OF  LIST  EXHAUSTED.  REMAINING  ENTRIES  OF  13  SUBSET 
DO  90  M-IB.LAST 
KP«KP*1 

INAD(KP) -INADS IM) 

90  CONTINUE 
GO  TO  130 
100  CONTINUE 

13  SUBSET  OF  LIST  EXHAUSTED.  REMAINING  ENTRIES  OF  II  SUBSET 

taken  in  order 

I IP-IBS-l 
KP-K 

00  1 10  M-I 1 . I IP 
KP-KP-1 

INAO(KP) • INADS (M) 
no  CONTINUE 
GO  TO  130 
130  CONTINUE 
130  CONTINUE 

C SAVE  I NAD  ARRAY  FOR  NEXT  CYCLE  OF  ORDERING  PROCESS 

DO  140  IL-1 .LIMUP 
INAOS) IL)-INAOI ID 
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140  CONTINUE 
150  CONTINUE 
RETURN 
END 
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